Home » date » 2008 » Nov » 12 »

tijdreeksQ2

*The author of this computation has been verified*
R Software Module: rwasp_hierarchicalclustering.wasp (opens new window with default values)
Title produced by software: Hierarchical Clustering
Date of computation: Wed, 12 Nov 2008 11:02:52 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz.htm/, Retrieved Wed, 12 Nov 2008 18:03:34 +0000
 
BibTeX entries for LaTeX users:
@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz.htm/},
    year = {2008},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
 
Feedback Forum:

Post a new message
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
90,7 78,4 97,8 75,4 98,4 94,3 114,6 107,4 105,5 107,4 104,6 113,3 117,5 112,3 117,7 111,1 117 105,6 102,5 105,7 110,8 99,6 97,4 93,5 97,5 107,2 99,4 99,5 86,7 99,9 99 101,9 98 95,2 98,2 99 115,2 104,3 103,8 104,5 91 108,5 100,6 97 100,8 96,2 113,8 101,1 95,5 101,5 96,9 121 103,9 101 103,9 96,2 92,2 96,9 67,5 99,6 100,1 90,2 95,5 64 98,4 99 101,5 108,4 106,7 112,7 115,4 126,6 117 100,6 118,4 106,9 93,9 103,8 101,2 108,1 107,1 89,8 100,8 93,1 105,4 99,3 93,4 110,6 84,2 114,6 99,2 101,5 104 85,8 106,9 108,3 110,4 112,6 91,8 115,9 105,6 105,9 107,3 92,4 109,8 99,5 108,4 98,9 80,3 101,8 107,4 113,9 109,8 79,7 114,2 93,1 86,1 104,9 62,5 110,8 88,1 69,4 102,2 57,1 108,4 110,7 101,2 123,9 100,8 127,5 113,1 100,5 124,9 100,7 128,6 99,6 98 112,7 86,2 116,6 93,6 106,6 121,9 83,2 127,4 98,6 90,1 100,6 71,7 105 99,6 96,9 104,3 77,5 108,3 114,3 125,9 120,4 89,8 125 107,8 112 107,5 80,3 111,6 101,2 100 102,9 78,7 106,5 112,5 123,9 125,6 93,8 130,3 100,5 79,8 107,5 57,6 115 93,9 83,4 108,8 60,6 116,1 116,2 113,6 128,4 91 134 112 112,9 121,1 85,3 126,5 106,4 104 119,5 77,4 125,8 95,7 109,9 128,7 77,3 136,4 96 99 108,7 68,3 114,9 95,8 106,3 105,5 69,9 110,9 103 128,9 119,8 81,7 125,5 102,2 111,1 111,3 75,1 116,8 98,4 102,9 110,6 69,9 116,8 111,4 130 120,1 84 125,5 86,6 87 97,5 54,3 104,2 91,3 87,5 107,7 60 115,1 107,9 117,6 127,3 89,9 132,8 101,8 103,4 117,2 77 123,3 104,4 110,8 119,8 85,3 124,8 93,4 112,6 116,2 77,6 122 100,1 102,5 111 69,2 117,4 98,5 112,4 112,4 75,5 117,9 112,9 135,6 130,6 85,7 137,4 101,4 105,1 109,1 72,2 114,6 107,1 127,7 118,8 79,9 124,7 110,8 137 123,9 85,3 129,6 90,3 91 101,6 52,2 109,4 95,5 90,5 112,8 61,2 120,9 111,4 122,4 128 82,4 134,9 113 123,3 129,6 85,4 136,3 107,5 124,3 125,8 78,2 133,2 95,9 120 119,5 70,2 127,2 106,3 118,1 115,7 70,2 122,7 105,2 119 113,6 69,3 120,5 117,2 142,7 129,7 77,5 137,8 106,9 123,6 112 66,1 119,1 108,2 129,6 116,8 69 124,3 113 151,6 127 79,2 134,4 97,2 110,4 112,1 56,2 121,1 99,9 99,2 114,2 63,3 122,2 108,1 130,5 121,1 77,8 127,7 118,1 136,2 131,6 92 137,4 109,1 129,7 125 78,1 132,2 93,3 128 120,4 65,1 129,2 112,1 121,6 117,7 71,1 124,9 111,8 135,8 117,5 70,9 124,8 112,5 143,8 120,6 72 128,2 116,3 147,5 127,5 81,9 134,4 110,3 136,2 112,3 70,6 118,6 117,1 156,6 124,5 72,5 132,6 103,4 123,3 115,2 65,1 123,2 96,2 100,4 105,4 61,1 112,3
 
Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Summary of Dendrogram
LabelHeight
12.01494416796098
22.91032644217104
33.47562943939656
44.02243707222376
54.1097445176069
64.23792402008343
74.33704968844028
84.80936586256441
95.11272921246568
105.76367938039583
115.77667724561446
125.80172388174411
135.9042357676502
145.93632883186233
156.32596452273507
166.35531273817427
176.58483105326174
186.6240853497338
197.33038838043221
207.46659226153405
217.62364742101837
227.69415362466853
238.1700673191841
248.25166649835049
258.33126641033642
268.4279338567296
278.7574701893959
288.8289297199604
299.23038460737146
309.65401470891774
319.78259143841507
329.9373034571759
339.94619109717238
3410.0362830165079
3510.0786903911173
3610.1543094299908
3710.4283269491282
3810.6948585778401
3911.2697310375211
4011.3454852310461
4111.3600176056202
4211.7695841107825
4312.6512991212240
4413.1196573819491
4513.5295371712062
4614.4581765115882
4714.6735532521485
4814.7194578827144
4914.8263279337805
5016.9705467748593
5117.6002840886163
5217.9161523497766
5317.9293801869594
5418.0234741579425
5518.601017964521
5619.3977587922622
5719.5090265603650
5821.8070091681304
5922.8024860408551
6023.0415549417313
6124.5576451045647
6226.6672453218299
6326.8016593661512
6427.5981667660092
6528.7973701555923
6628.8819610478539
6729.5026881466494
6830.0300816817981
6933.7339729565329
7035.5514545111563
7135.688246345763
7241.3180883969596
7346.1594833925993
7446.4774722287879
7557.3558504422063
7673.8360948661058
7789.8434245497332
7895.3632347290747
79106.106996063180
80145.085286431952
81149.375388087868
82200.019250511833
83311.065453490696
84713.513472249966
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz/17it11226512966.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz/17it11226512966.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz/2q0re1226512966.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226513013xcr1356m3jjnqyz/2q0re1226512966.ps (open in new window)


 
Parameters (Session):
par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ;
 
Parameters (R input):
par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ;
 
R code (references can be found in the software module):
par3 <- as.logical(par3)
par4 <- as.logical(par4)
if (par3 == 'TRUE'){
dum = xlab
xlab = ylab
ylab = dum
}
x <- t(y)
hc <- hclust(dist(x),method=par1)
d <- as.dendrogram(hc)
str(d)
mysub <- paste('Method: ',par1)
bitmap(file='test1.png')
if (par4 == 'TRUE'){
plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub)
} else {
plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub)
}
dev.off()
if (par2 != 'ALL'){
if (par3 == 'TRUE'){
ylab = 'cluster'
} else {
xlab = 'cluster'
}
par2 <- as.numeric(par2)
memb <- cutree(hc, k = par2)
cent <- NULL
for(k in 1:par2){
cent <- rbind(cent, colMeans(x[memb == k, , drop = FALSE]))
}
hc1 <- hclust(dist(cent),method=par1, members = table(memb))
de <- as.dendrogram(hc1)
bitmap(file='test2.png')
if (par4 == 'TRUE'){
plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub)
} else {
plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub)
}
dev.off()
str(de)
}
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary of Dendrogram',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Label',header=TRUE)
a<-table.element(a,'Height',header=TRUE)
a<-table.row.end(a)
num <- length(x[,1])-1
for (i in 1:num)
{
a<-table.row.start(a)
a<-table.element(a,hc$labels[i])
a<-table.element(a,hc$height[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
if (par2 != 'ALL'){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary of Cut Dendrogram',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Label',header=TRUE)
a<-table.element(a,'Height',header=TRUE)
a<-table.row.end(a)
num <- par2-1
for (i in 1:num)
{
a<-table.row.start(a)
a<-table.element(a,i)
a<-table.element(a,hc1$height[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
}
 




Copyright

Creative Commons License

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa


Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.


Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

  • personalize online software applications according to your needs
  • enforce strict security rules with respect to the data that you upload (e.g. statistical data)
  • manage user sessions of online applications
  • alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by