Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.00099950033305429 0.00099850232957088 -0.0009985023296184 -0.0030015030037291 0.001001502337127 -0.004012041489962 -0.0040282028286014 0.0020161297152037 0.0040201059166187 0.001002506349653 -0.0030105391528727 0.0010045204259987 -6.6613381477509E-15 0.0050075217305934 -0.0009995003331289 -4.5741188614556E-14 -0.001000500333546 0.001000500333538 -4.5741188614556E-14 -4.5741188614556E-14 -0.001000500333546 -0.0010015023370622 -0.001002506349673 0.002004008686753 0.001000500333538 -0.002002002670646 2.7089441800854E-14 -0.004016069654873 0.0020100509280176 -6.6613381477509E-15 0.0020060187268931 -0.001002506349673 0.002004008686753 -0.0020040086867623 -4.7073456244107E-14 -4.7073456244107E-14 -4.7073456244107E-14 0.001002506349653 0.0030015030037274 -2.8865798640254E-14 -0.0020000006666292 -0.0020040086867623 -4.7073456244107E-14 0.001002506349653 -0.001002506349673 -4.7073456244107E-14 0.001002506349653 -0.001002506349673 -0.0010035123772467 -6.6613381477509E-15 -0.0010045204260067 0.0020080328031984 0.001002506349653 -0.0020060187268727 -6.6613381477509E-15 -0.0010045204260067 -1.3322676295502E-15 -1.3322676295502E-15 -0.0010055305020016 1.7319479184152E-14 1.7319479184152E-14 0.0040160696549174 2.7089441800854E-14 2.7089441800854E-14 -0.0030105391528727 0.0010045204259987 -0.002010050928007 1.7319479184152E-14 -0.0010065426113823 1.9095836023553E-14 1.9095836023553E-14 0.002012073113419 0.0010045204259987 -0.002010050928007 1.7319479184152E-14 0.0020100509280176 -0.0030165935394066 0.0010065426114187 1.7319479184152E-14 0.0010055305020176 -0.0020120731134012 -0.001007556760281 1.8651746813703E-14 1.8651746813703E-14 0.0020140993717184 -0.0020140993716824 0.0050276626769183 0.002004008686753 0.0020000006666381 -2.8865798640254E-14 0.00099850232957088 -0.0019980026627184 -0.001000500333546 3.7747582837255E-14 0.001000500333538 -4.5741188614556E-14 0.00099950033305429 -0.0009995003331289 0.00099950033305429 0.0049825713444709 -0.00099453016649331 -0.00099552024148508 0.001990050408017 0.00099354205890689 -0.00099354205887092 0.00099354205890689 -0.00099354205887092 -0.0019900504079935 0.00099552024151706 -0.0019920325312848 -0.0019960086467439 0.001996008646671 0.00099651228975572 1.6875389974302E-14 0.00099552024151706 0.0029806281381153 -0.0029806281381224 1.5099033134902E-14 0.0019880722254153 2.9309887850104E-14 0.00099255591272929 -2.2204460492503E-14 -0.00099255591272218 -0.00099354205887092 0.00099354205890689 0.00099255591272929 0.0019821612039777 -1.3766765505352E-14 -0.00099058948171393 -0.00099157172231745 0.0019821612039777 -0.0019821612040136 -2.2204460492503E-14 -0.0029806281381224 -0.00099552024148508 0.001990050408017 0.00099354205890689 -0.00099354205887092 -0.00099453016649331 1.5099033134902E-14 1.5099033134902E-14 -0.0029895388483849 -0.0009985023296184 0.00099850232957088 0.00099750631708151 -4.3964831775156E-14 -4.3964831775156E-14 -0.00099750631714413 0.00099750631708151 0.00099651228975572 0.00099552024151706 1.5099033134902E-14 -0.0029895388483849 0.00099750631708151 -4.3964831775156E-14 -4.3964831775156E-14 -0.00099750631714413 -0.0009985023296184 -0.0009995003331289 -4.5741188614556E-14 0.00099950033305429 -0.0009995003331289 -0.002002002670646 0.001001502337127 3.7747582837255E-14 0.0020000006666381 -2.8865798640254E-14 -0.0009995003331289 0.001998002662654 -0.0009985023296184 -2.8865798640254E-14 0.00099850232957088 -0.0009985023296184 0.001996008646671 -0.0029955089798439 -4.5741188614556E-14 -4.5741188614556E-14 -4.5741188614556E-14 -0.001000500333546 0.001000500333538 0.0029955089797542 -4.3964831775156E-14 -4.3964831775156E-14 -4.3964831775156E-14 -4.3964831775156E-14 0.0019920325312559 0.00099453016651507 -0.00099453016649331 0.00099453016651507 0.00099354205890689 -0.0019880722253709 1.5099033134902E-14 -0.00099552024148508 0.00099552024151706 0.0019880722254153 2.9309887850104E-14 0.00099255591272929 -2.2204460492503E-14 -2.2204460492503E-14 -0.0019860979716224 -0.0029865626977932 0.00099651228975572 0.001990050408017 0.0019860979716069 -0.00099255591272218 2.9309887850104E-14 -0.0029835924668711 -0.00099651228978281 -0.0019960086467439 -0.0009995003331289 0.00099950033305429 0.001996008646671 -0.0019960086467439 0.00099850232957088 -1.8651746813703E-14 -1.8651746813703E-14 0.00099750631708151 -4.3964831775156E-14 0.00099651228975572 -0.001994018606883 -0.0009985023296184 -2.8865798640254E-14 -0.0009995003331289 0.00099950033305429 0.001996008646671 -4.3964831775156E-14 -0.00099750631714413 -1.8651746813703E-14 -0.0029985029962187 0.001000500333538 0.001998002662654 -0.0009985023296184 -2.8865798640254E-14 -2.8865798640254E-14 -2.8865798640254E-14 -0.0009995003331289 -0.0030045090203461 -4.7073456244107E-14 0.001002506349653 0.001001502337127 -0.0020040086867623 0.001002506349653 2.7089441800854E-14 -0.001002506349673 0.001002506349653 -0.001002506349673 -0.0010035123772467 -6.6613381477509E-15 0.001003512377193 -0.0010035123772467 0.001003512377193 -4.7073456244107E-14 -4.7073456244107E-14 -0.0010035123772467 -6.6613381477509E-15 0.0020060187268931 -0.0020060187268727 -0.0010045204260067 -0.0010055305020016 -0.0010065426113823 -0.001007556760281 1.8651746813703E-14 -0.0020181641562815 0.0010095912013557 -0.0020202027072966 0.0030287756621794 1.8651746813703E-14 0.0020140993717184 0.0010055305020176 -0.0020120731134012 0.0030165935394191 -0.0010045204260067 -1.3322676295502E-15 -1.3322676295502E-15 0.0020080328031984 -4.7073456244107E-14 0.001002506349653 2.7089441800854E-14 -0.001002506349673 0.0030045090202533 -0.001000500333546 -0.0010015023370622 0.0030015030037274 -0.0009995003331289 -0.002002002670646 0.0020020026706273 -4.5741188614556E-14 0.001998002662654 -0.0019980026627184 -0.001000500333546 -0.0010015023370622 -0.001002506349673 0.002004008686753 3.7747582837255E-14 0.0020000006666381 -2.8865798640254E-14 -2.8865798640254E-14 -0.0020000006666292 3.7747582837255E-14 -0.0020040086867623 0.001002506349653 -0.0020060187268727 -6.6613381477509E-15 -6.6613381477509E-15 0.001003512377193 -4.7073456244107E-14 -4.7073456244107E-14 0.001002506349653 2.7089441800854E-14 0.0020020026706273 -0.001000500333546 3.7747582837255E-14 -0.0010015023370622 0.0020020026706273 -0.001000500333546 -0.0010015023370622 0.0040000053333271 -0.0009985023296184 0.00099850232957088 0.00099750631708151 -4.3964831775156E-14 -4.3964831775156E-14 -4.3964831775156E-14 0.00099651228975572 0.00099552024151706 -0.0019920325312848 -4.3964831775156E-14 -4.3964831775156E-14 0.0019920325312559 1.5099033134902E-14 1.5099033134902E-14 0.00099453016651507 0.00099354205890689 2.9309887850104E-14 0.00099255591272929 -2.2204460492503E-14 -0.00099255591272218 0.00099255591272929 0.0019821612039777 0.00098960918518642 -0.0029717703891796 -2.2204460492503E-14 -0.00099255591272218 -0.00099354205887092 0.00099354205890689 2.9309887850104E-14 -0.00099354205887092 0.0019860979716069 0.00099157172227748 -1.7763568394003E-14 -1.7763568394003E-14 -1.7763568394003E-14 -0.00099157172231745 0.00099157172227748 -1.7763568394003E-14 0.0009905894816824 -1.3766765505352E-14 0.00098960918518642 -0.00098960918517976 -1.3766765505352E-14 0.001978240012086 -0.00098863082691913 0.00098863082692002 0.00098765440128057 -0.0019762852281917 0.0029629651306204 0.001970443987263 -3.5971225997855E-14 0.00098376791016408 -0.00098376791016852 -3.5971225997855E-14 -0.0019704439873358 0.002954211897463 -0.00098376791016852 0.001966568972064 2.3536728122053E-14 0.0039215736532237 4.1744385725906E-14 0.00097799518794162 -3.5083047578155E-14 -0.0039177327289353 -3.3306690738755E-14 -3.3306690738755E-14 -3.3306690738755E-14 -0.00098183611223313 0.0029426210542236 -0.0019607849419745 -0.00098183611223313 2.3536728122053E-14 2.3536728122053E-14 0.00098183611222336 -0.00098183611223313 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 0.0019627091678234 -0.00098087305562533 0.0019607849419669 -0.0039254221160743 -0.0019685045726687 3.5527136788005E-15 3.5527136788005E-15 0.00098473666250376 0.0029484050842639 -0.00098183611223313 0.00098183611222336 -0.0029484050843331 -3.5971225997855E-14 -0.00098473666253618 -0.00098570732479608 -0.00098667990243717 0.00098667990240831 -0.00098667990243717 0.00098667990240831 -3.6859404417555E-14 0.002954211897463 3.1530333899354E-14 0.00098280106193149 2.3536728122053E-14 -0.00098280106187643 3.1530333899354E-14 -0.00098376791016852 0.0029484050842639 0.00098087305556671 0.00097991188637492 2.5757174171304E-14 -0.00097991188637447 -2.5313084961454E-14 -0.0019627091678251 0.0019627091678234 -2.5313084961454E-14 -0.00098087305562533 0.00098087305556671 -0.00098087305562533 -0.00098183611223313 2.3536728122053E-14 0.0029426210542236 2.5757174171304E-14 2.5757174171304E-14 2.5757174171304E-14 2.5757174171304E-14 -0.00097991188637447 0.00097991188637492 -0.0019607849419745 0.00098087305556671 -2.5313084961454E-14 -0.00098087305562533 0.00098087305556671 -0.0019627091678251 2.3536728122053E-14 -0.00098280106187643 3.1530333899354E-14 3.1530333899354E-14 -0.00098376791016852 -0.0019704439873358 0.003937012959363 0.0019627091678234 -0.00098087305562533 -0.0029484050843331 0.0029484050842639 -3.3306690738755E-14 -0.0019646371741331 3.1530333899354E-14 3.1530333899354E-14 0.0019646371741313 -0.00098183611223313 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 2.3536728122053E-14 0.0048995688411235 -3.5083047578155E-14 0.00097703964786477 3.8191672047105E-14 0.00097608597303811 0.00097513415818273 0.0019474202843766 -0.00097323608651889 -0.001949318356067 -1.7319479184152E-14 -1.7319479184152E-14 0.00097513415818273 -2.3536728122053E-14 0.00097418419787676 -0.001949318356067 0.001949318356083 -0.001949318356067 -0.0019531256209171 -3.5083047578155E-14 -3.5083047578155E-14 -3.5083047578155E-14 -0.00097799518793495 0.0019550348358415 0.00097608597303811 -1.7319479184152E-14 -0.0019531256209171 -0.00097799518793495 0.00097799518794162 -0.00097799518793495 -0.0009789525989583 0.0019569477869257 -0.00097799518793495 4.1744385725906E-14 4.1744385725906E-14 4.1744385725906E-14 4.1744385725906E-14 -0.0009789525989583 0.00097895259902581 4.1744385725906E-14 -0.0009789525989583 0.00097895259902581 4.1744385725906E-14 4.1744385725906E-14 -0.0009789525989583 2.5757174171304E-14 -0.00097991188637447 0.00097991188637492 2.5757174171304E-14 0.00097895259902581 -0.0009789525989583 -0.0019607849419745 -3.3306690738755E-14 0.00098087305556671 0.001958864485375 4.1744385725906E-14 0.0068259650704414 -0.00097228981895814 -0.004875680063519 -0.00097799518793495 4.1744385725906E-14 4.1744385725906E-14 0.0019550348358415 3.8191672047105E-14 0.0019512201312382 -2.3536728122053E-14 -0.00097513415822359 0.0029225544425828 -0.00097323608651889 0.0009732360865331 0.00097228981898079 4.1744385725906E-14 0.00097134538964205 -0.00097134538959009 4.1744385725906E-14 0.0019417481829418 -0.001941748182869 4.1744385725906E-14 0.0019417481829418 -0.00097040279326865 -0.00097134538959009 0.00097134538964205 0.00097040279330995 3.1086244689504E-14 -0.00097040279326865 0.0019398648178099 0.00096852307808337 -4.7073456244107E-14 -4.7073456244107E-14 -0.00096852307814732 -1.6875389974302E-14 -1.6875389974302E-14 -1.6875389974302E-14 0.00096852307808337 0.0019342365798529 -0.0019342365798778 -0.00096852307814732 -0.0019398648178166 0.0038759738447101 -0.00096758594878299 -4.7073456244107E-14 -0.0019379851026473 0.00096946202453108 0.0019361090268832 -0.0019361090268832 0.0029027596579834 2.2204460492503E-14 2.2204460492503E-14 -0.00096665063107793 0.00096665063111701 2.2204460492503E-14 -0.00096665063107793 1.6875389974302E-14 0.00096665063111701 -0.00096665063107793 0.0019323677510168 -0.0019323677510368 1.6875389974302E-14 0.00096665063111701 0.00096571711992199 -3.6859404417555E-14 0.0009647854100634 -0.00096478541013578 -0.0019323677510368 0.0019323677510168 -0.00096571711993665 2.2204460492503E-14 -0.00096665063107793 0.0019323677510168 0.0009647854100634 -0.00096478541013578 0.0009647854100634 -3.5527136788005E-14 -0.00096478541013578 -3.6859404417555E-14 0.0009647854100634 0.0009638554962641 0.00096292737335757 -0.00096292737343617 -4.2632564145606E-14 -0.0019286409064425 -3.6859404417555E-14 0.0009647854100634 0.0019267828696643 -3.5971225997855E-14 0.00096200103616395 -2.7089441800854E-14 0.001921230177873 -0.00096015369832081 0.00096015369832259 0.00095923268747899 -0.00095923268748077 -2.0872192862953E-14 -0.00096015369832081 2.2648549702353E-14
Chart options
Title:
Y-axis minimum
Y-axis maximum
R Code
geomean <- function(x) { return(exp(mean(log(x)))) } harmean <- function(x) { return(1/mean(1/x)) } quamean <- function(x) { return(sqrt(mean(x*x))) } winmean <- function(x) { x <-sort(x[!is.na(x)]) n<-length(x) denom <- 3 nodenom <- n/denom if (nodenom>40) denom <- n/40 sqrtn = sqrt(n) roundnodenom = floor(nodenom) win <- array(NA,dim=c(roundnodenom,2)) for (j in 1:roundnodenom) { win[j,1] <- (j*x[j+1]+sum(x[(j+1):(n-j)])+j*x[n-j])/n win[j,2] <- sd(c(rep(x[j+1],j),x[(j+1):(n-j)],rep(x[n-j],j)))/sqrtn } return(win) } trimean <- function(x) { x <-sort(x[!is.na(x)]) n<-length(x) denom <- 3 nodenom <- n/denom if (nodenom>40) denom <- n/40 sqrtn = sqrt(n) roundnodenom = floor(nodenom) tri <- array(NA,dim=c(roundnodenom,2)) for (j in 1:roundnodenom) { tri[j,1] <- mean(x,trim=j/n) tri[j,2] <- sd(x[(j+1):(n-j)]) / sqrt(n-j*2) } return(tri) } midrange <- function(x) { return((max(x)+min(x))/2) } q1 <- function(data,n,p,i,f) { np <- n*p; i <<- floor(np) f <<- np - i qvalue <- (1-f)*data[i] + f*data[i+1] } q2 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i qvalue <- (1-f)*data[i] + f*data[i+1] } q3 <- function(data,n,p,i,f) { np <- n*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { qvalue <- data[i+1] } } q4 <- function(data,n,p,i,f) { np <- n*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- (data[i]+data[i+1])/2 } else { qvalue <- data[i+1] } } q5 <- function(data,n,p,i,f) { np <- (n-1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i+1] } else { qvalue <- data[i+1] + f*(data[i+2]-data[i+1]) } } q6 <- function(data,n,p,i,f) { np <- n*p+0.5 i <<- floor(np) f <<- np - i qvalue <- data[i] } q7 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { qvalue <- f*data[i] + (1-f)*data[i+1] } } q8 <- function(data,n,p,i,f) { np <- (n+1)*p i <<- floor(np) f <<- np - i if (f==0) { qvalue <- data[i] } else { if (f == 0.5) { qvalue <- (data[i]+data[i+1])/2 } else { if (f < 0.5) { qvalue <- data[i] } else { qvalue <- data[i+1] } } } } midmean <- function(x,def) { x <-sort(x[!is.na(x)]) n<-length(x) if (def==1) { qvalue1 <- q1(x,n,0.25,i,f) qvalue3 <- q1(x,n,0.75,i,f) } if (def==2) { qvalue1 <- q2(x,n,0.25,i,f) qvalue3 <- q2(x,n,0.75,i,f) } if (def==3) { qvalue1 <- q3(x,n,0.25,i,f) qvalue3 <- q3(x,n,0.75,i,f) } if (def==4) { qvalue1 <- q4(x,n,0.25,i,f) qvalue3 <- q4(x,n,0.75,i,f) } if (def==5) { qvalue1 <- q5(x,n,0.25,i,f) qvalue3 <- q5(x,n,0.75,i,f) } if (def==6) { qvalue1 <- q6(x,n,0.25,i,f) qvalue3 <- q6(x,n,0.75,i,f) } if (def==7) { qvalue1 <- q7(x,n,0.25,i,f) qvalue3 <- q7(x,n,0.75,i,f) } if (def==8) { qvalue1 <- q8(x,n,0.25,i,f) qvalue3 <- q8(x,n,0.75,i,f) } midm <- 0 myn <- 0 roundno4 <- round(n/4) round3no4 <- round(3*n/4) for (i in 1:n) { if ((x[i]>=qvalue1) & (x[i]<=qvalue3)){ midm = midm + x[i] myn = myn + 1 } } midm = midm / myn return(midm) } (arm <- mean(x)) sqrtn <- sqrt(length(x)) (armse <- sd(x) / sqrtn) (armose <- arm / armse) (geo <- geomean(x)) (har <- harmean(x)) (qua <- quamean(x)) (win <- winmean(x)) (tri <- trimean(x)) (midr <- midrange(x)) midm <- array(NA,dim=8) for (j in 1:8) midm[j] <- midmean(x,j) midm bitmap(file='test1.png') lb <- win[,1] - 2*win[,2] ub <- win[,1] + 2*win[,2] if ((ylimmin == '') | (ylimmax == '')) plot(win[,1],type='b',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(win[,1],type='l',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(ylimmin,ylimmax)) lines(ub,lty=3) lines(lb,lty=3) grid() dev.off() bitmap(file='test2.png') lb <- tri[,1] - 2*tri[,2] ub <- tri[,1] + 2*tri[,2] if ((ylimmin == '') | (ylimmax == '')) plot(tri[,1],type='b',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(tri[,1],type='l',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(ylimmin,ylimmax)) lines(ub,lty=3) lines(lb,lty=3) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Central Tendency - Ungrouped Data',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Measure',header=TRUE) a<-table.element(a,'Value',header=TRUE) a<-table.element(a,'S.E.',header=TRUE) a<-table.element(a,'Value/S.E.',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm', 'Arithmetic Mean', 'click to view the definition of the Arithmetic Mean'),header=TRUE) a<-table.element(a,arm) a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean_standard_error.htm', armse, 'click to view the definition of the Standard Error of the Arithmetic Mean')) a<-table.element(a,armose) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/geometric_mean.htm', 'Geometric Mean', 'click to view the definition of the Geometric Mean'),header=TRUE) a<-table.element(a,geo) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/harmonic_mean.htm', 'Harmonic Mean', 'click to view the definition of the Harmonic Mean'),header=TRUE) a<-table.element(a,har) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/quadratic_mean.htm', 'Quadratic Mean', 'click to view the definition of the Quadratic Mean'),header=TRUE) a<-table.element(a,qua) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) for (j in 1:length(win[,1])) { a<-table.row.start(a) mylabel <- paste('Winsorized Mean (',j) mylabel <- paste(mylabel,'/') mylabel <- paste(mylabel,length(win[,1])) mylabel <- paste(mylabel,')') a<-table.element(a,hyperlink('http://www.xycoon.com/winsorized_mean.htm', mylabel, 'click to view the definition of the Winsorized Mean'),header=TRUE) a<-table.element(a,win[j,1]) a<-table.element(a,win[j,2]) a<-table.element(a,win[j,1]/win[j,2]) a<-table.row.end(a) } for (j in 1:length(tri[,1])) { a<-table.row.start(a) mylabel <- paste('Trimmed Mean (',j) mylabel <- paste(mylabel,'/') mylabel <- paste(mylabel,length(tri[,1])) mylabel <- paste(mylabel,')') a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm', mylabel, 'click to view the definition of the Trimmed Mean'),header=TRUE) a<-table.element(a,tri[j,1]) a<-table.element(a,tri[j,2]) a<-table.element(a,tri[j,1]/tri[j,2]) a<-table.row.end(a) } a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/median_1.htm', 'Median', 'click to view the definition of the Median'),header=TRUE) a<-table.element(a,median(x)) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/midrange.htm', 'Midrange', 'click to view the definition of the Midrange'),header=TRUE) a<-table.element(a,midr) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_1.htm','Weighted Average at Xnp',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[1]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_2.htm','Weighted Average at X(n+1)p',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[2]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_3.htm','Empirical Distribution Function',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[3]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_4.htm','Empirical Distribution Function - Averaging',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[4]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_5.htm','Empirical Distribution Function - Interpolation',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[5]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_6.htm','Closest Observation',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[6]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_7.htm','True Basic - Statistics Graphics Toolkit',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[7]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean') mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_8.htm','MS Excel (old versions)',''),sep=' - ') a<-table.element(a,mylabel,header=TRUE) a<-table.element(a,midm[8]) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of observations',header=TRUE) a<-table.element(a,length(x)) a<-table.element(a,'') a<-table.element(a,'') a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation