Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
'S' 26 NA 50 NA 12.9 'S' NA 57 NA 62 12.2 'S' 37 NA 54 NA 12.8 'S' NA 67 NA 71 7.4 'S' NA 43 NA 54 6.7 'S' NA 52 NA 65 12.6 'S' 52 NA 73 NA 14.8 'S' NA 43 NA 52 13.3 'S' NA 84 NA 84 11.1 'S' NA 67 NA 42 8.2 'S' NA 49 NA 66 11.4 'S' NA 70 NA 65 6.4 'S' NA 52 NA 78 10.6 'S' 58 NA 73 NA 12 'S' 68 NA 75 NA 6.3 'B' 62 NA 72 NA 11.3 'S' NA 43 NA 66 11.9 'S' 56 NA 70 NA 9.3 'B' NA 56 NA 61 9.6 'S' 74 NA 81 NA 10 'S' NA 65 NA 71 6.4 'S' NA 63 NA 69 13.8 'S' 58 NA 71 NA 10.8 'S' NA 57 NA 72 13.8 'S' NA 63 NA 68 11.7 'S' NA 53 NA 70 10.9 'B' NA 57 NA 68 16.1 'B' 51 NA 61 NA 13.4 'S' NA 64 NA 67 9.9 'S' 53 NA 76 NA 11.5 'S' 29 NA 70 NA 8.3 'S' 54 NA 60 NA 11.7 'S' NA 58 NA 72 9 'S' NA 43 NA 69 9.7 'S' NA 51 NA 71 10.8 'S' NA 53 NA 62 10.3 'S' 54 NA 70 NA 10.4 'B' NA 56 NA 64 12.7 'S' NA 61 NA 58 9.3 'S' 47 NA 76 NA 11.8 'S' NA 39 NA 52 5.9 'S' NA 48 NA 59 11.4 'S' NA 50 NA 68 13 'S' NA 35 NA 76 10.8 'B' NA 30 NA 65 12.3 'S' 68 NA 67 NA 11.3 'S' NA 49 NA 59 11.8 'B' NA 61 NA 69 7.9 'S' 67 NA 76 NA 12.7 'B' NA 47 NA 63 12.3 'B' NA 56 NA 75 11.6 'B' NA 50 NA 63 6.7 'S' NA 43 NA 60 10.9 'B' NA 67 NA 73 12.1 'S' NA 62 NA 63 13.3 'S' NA 57 NA 70 10.1 'B' 41 NA 75 NA 5.7 'S' NA 54 NA 66 14.3 'B' 45 NA 63 NA 8 'B' NA 48 NA 63 13.3 'S' NA 61 NA 64 9.3 'S' 56 NA 70 NA 12.5 'S' 41 NA 75 NA 7.6 'S' NA 43 NA 61 15.9 'S' 53 NA 60 NA 9.2 'B' NA 44 NA 62 9.1 'S' 66 NA 73 NA 11.1 'S' NA 58 NA 61 13 'S' NA 46 NA 66 14.5 'B' 37 NA 64 NA 12.2 'S' 51 NA 59 NA 12.3 'S' 51 NA 64 NA 11.4 'B' 56 NA 60 NA 8.8 'B' NA 66 NA 56 14.6 'S' 37 NA 78 NA 12.6 'S' 42 NA 67 NA 13 'B' NA 38 NA 59 12.6 'S' 66 NA 66 NA 13.2 'B' 34 NA 68 NA 9.9 'S' NA 53 NA 71 7.7 'B' 49 NA 66 NA 10.5 'B' 55 NA 73 NA 13.4 'B' 49 NA 72 NA 10.9 'B' NA 59 NA 71 4.3 'B' 40 NA 59 NA 10.3 'B' NA 58 NA 64 11.8 'B' NA 60 NA 66 11.2 'B' 63 NA 78 NA 11.4 'B' 56 NA 68 NA 8.6 'B' 54 NA 73 NA 13.2 'B' NA 52 NA 62 12.6 'B' NA 34 NA 65 5.6 'B' NA 69 NA 68 9.9 'B' 32 NA 65 NA 8.8 'B' NA 48 NA 60 7.7 'B' 67 NA 71 NA 9 'B' NA 58 NA 65 7.3 'B' NA 57 NA 68 11.4 'B' NA 42 NA 64 13.6 'B' NA 64 NA 74 7.9 'B' NA 58 NA 69 10.7 'B' 66 NA 76 NA 10.3 'B' NA 26 NA 68 8.3 'B' NA 61 NA 72 9.6 'B' NA 52 NA 67 14.2 'B' 51 NA 63 NA 8.5 'B' 55 NA 59 NA 13.5 'B' 50 NA 73 NA 4.9 'B' 60 NA 66 NA 6.4 'B' 56 NA 62 NA 9.6 'B' 63 NA 69 NA 11.6 'B' NA 61 NA 66 11.1 'S' NA 52 NA 51 4.35 'S' NA 16 NA 56 12.7 'S' NA 46 NA 67 18.1 'S' NA 56 NA 69 17.85 'B' 52 NA 57 NA 16.6 'B' NA 55 NA 56 12.6 'S' NA 50 NA 55 17.1 'S' 59 NA 63 NA 19.1 'S' NA 60 NA 67 16.1 'S' 52 NA 65 NA 13.35 'S' 44 NA 47 NA 18.4 'S' NA 67 NA 76 14.7 'S' NA 52 NA 64 10.6 'S' NA 55 NA 68 12.6 'S' NA 37 NA 64 16.2 'S' NA 54 NA 65 13.6 'B' NA 72 NA 71 18.9 'S' NA 51 NA 63 14.1 'S' NA 48 NA 60 14.5 'S' 60 NA 68 NA 16.15 'S' NA 50 NA 72 14.75 'S' NA 63 NA 70 14.8 'S' NA 33 NA 61 12.45 'S' NA 67 NA 61 12.65 'S' NA 46 NA 62 17.35 'S' NA 54 NA 71 8.6 'S' 59 NA 71 NA 18.4 'S' NA 61 NA 51 16.1 'B' NA 33 NA 56 11.6 'S' NA 47 NA 70 17.75 'S' NA 69 NA 73 15.25 'S' NA 52 NA 76 17.65 'S' 55 NA 68 NA 16.35 'S' 41 NA 48 NA 17.65 'S' NA 73 NA 52 13.6 'S' 52 NA 60 NA 14.35 'S' 50 NA 59 NA 14.75 'S' NA 51 NA 57 18.25 'S' 60 NA 79 NA 9.9 'S' NA 56 NA 60 16 'S' NA 56 NA 60 18.25 'S' 29 NA 59 NA 16.85 'B' NA 66 NA 62 14.6 'B' NA 66 NA 59 13.85 'S' NA 73 NA 61 18.95 'S' 55 NA 71 NA 15.6 'B' 64 NA 57 NA 14.85 'B' 40 NA 66 NA 11.75 'B' 46 NA 63 NA 18.45 'B' NA 58 NA 69 15.9 'S' 43 NA 58 NA 17.1 'S' NA 61 NA 59 16.1 'B' 51 NA 48 NA 19.9 'B' NA 50 NA 66 10.95 'B' 52 NA 73 NA 18.45 'B' NA 54 NA 67 15.1 'B' 66 NA 61 NA 15 'B' 61 NA 68 NA 11.35 'B' NA 80 NA 75 15.95 'B' 51 NA 62 NA 18.1 'B' NA 56 NA 69 14.6 'S' NA 56 NA 58 15.4 'S' NA 56 NA 60 15.4 'B' NA 53 NA 74 17.6 'S' NA 47 NA 55 13.35 'S' 25 NA 62 NA 19.1 'B' NA 47 NA 63 15.35 'S' 46 NA 69 NA 7.6 'B' 50 NA 58 NA 13.4 'B' 39 NA 58 NA 13.9 'S' NA 51 NA 68 19.1 'B' 58 NA 72 NA 15.25 'B' NA 35 NA 62 12.9 'B' 58 NA 62 NA 16.1 'B' 60 NA 65 NA 17.35 'B' 62 NA 69 NA 13.15 'B' 63 NA 66 NA 12.15 'B' NA 53 NA 72 12.6 'B' NA 46 NA 62 10.35 'B' NA 67 NA 75 15.4 'B' NA 59 NA 58 9.6 'B' 64 NA 66 NA 18.2 'B' 38 NA 55 NA 13.6 'B' NA 50 NA 47 14.85 'S' 48 NA 72 NA 14.75 'B' 48 NA 62 NA 14.1 'B' 47 NA 64 NA 14.9 'B' 66 NA 64 NA 16.25 'S' NA 47 NA 19 19.25 'B' NA 63 NA 50 13.6 'S' 58 NA 68 NA 13.6 'B' 44 NA 70 NA 15.65 'S' NA 51 NA 79 12.75 'B' 43 NA 69 NA 14.6 'S' NA 55 NA 71 9.85 'B' NA 38 NA 48 12.65 'B' 45 NA 73 NA 19.2 'B' NA 50 NA 74 16.6 'B' NA 54 NA 66 11.2 'S' NA 57 NA 71 15.25 'S' 60 NA 74 NA 11.9 'B' 55 NA 78 NA 13.2 'S' 56 NA 75 NA 16.35 'S' NA 49 NA 53 12.4 'B' NA 37 NA 60 15.85 'S' NA 59 NA 70 18.15 'B' NA 46 NA 69 11.15 'B' 51 NA 65 NA 15.65 'S' 58 NA 78 NA 17.75 'B' 64 NA 78 NA 7.65 'S' NA 53 NA 59 12.35 'S' NA 48 NA 72 15.6 'S' 51 NA 70 NA 19.3 'B' 47 NA 63 NA 15.2 'S' 59 NA 63 NA 17.1 'B' NA 62 NA 71 15.6 'S' NA 62 NA 74 18.4 'S' 51 NA 67 NA 19.05 'S' 64 NA 66 NA 18.55 'S' 52 NA 62 NA 19.1 'B' NA 67 NA 80 13.1 'S' NA 50 NA 73 12.85 'S' NA 54 NA 67 9.5 'S' NA 58 NA 61 4.5 'B' 56 NA 73 NA 11.85 'S' NA 63 NA 74 13.6 'S' NA 31 NA 32 11.7 'B' NA 65 NA 69 12.4 'S' 71 NA 69 NA 13.35 'B' 50 NA 84 NA 11.4 'B' NA 57 NA 64 14.9 'B' 47 NA 58 NA 19.9 'B' NA 47 NA 59 11.2 'B' NA 57 NA 78 14.6 'S' 43 NA 57 NA 17.6 'S' NA 41 NA 60 14.05 'S' 63 NA 68 NA 16.1 'S' NA 63 NA 68 13.35 'S' NA 56 NA 73 11.85 'S' 51 NA 69 NA 11.95 'B' NA 50 NA 67 14.75 'B' 22 NA 60 NA 15.15 'S' NA 41 NA 65 13.2 'B' 59 NA 66 NA 16.85 'B' NA 56 NA 74 7.85 'S' 66 NA 81 NA 7.7 'B' 53 NA 72 NA 12.6 'B' NA 42 NA 55 7.85 'B' NA 52 NA 49 10.95 'B' 54 NA 74 NA 12.35 'B' NA 44 NA 53 9.95 'B' NA 62 NA 64 14.9 'B' 53 NA 65 NA 16.65 'B' NA 50 NA 57 13.4 'B' 36 NA 51 NA 13.95 'B' 76 NA 80 NA 15.7 'B' NA 66 NA 67 16.85 'B' NA 62 NA 70 10.95 'B' 59 NA 74 NA 15.35 'B' NA 47 NA 75 12.2 'B' 55 NA 70 NA 15.1 'B' 58 NA 69 NA 17.75 'B' NA 60 NA 65 15.2 'S' 44 NA 55 NA 14.6 'B' 57 NA 71 NA 16.65 'B' NA 45 NA 65 8.1
Names of X columns:
Group ams_I_FEM ams_I_mal ams_e_fem ams_e_mal TOT
Response Variable (column number)
Factor Variable (column number)
Include Intercept Term ?
TRUE
TRUE
FALSE
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
cat1 <- as.numeric(par1) # cat2<- as.numeric(par2) # intercept<-as.logical(par3) x <- t(x) x1<-as.numeric(x[,cat1]) f1<-as.character(x[,cat2]) xdf<-data.frame(x1,f1) (V1<-dimnames(y)[[1]][cat1]) (V2<-dimnames(y)[[1]][cat2]) names(xdf)<-c('Response', 'Treatment') if(intercept == FALSE) (lmxdf<-lm(Response ~ Treatment - 1, data = xdf) ) else (lmxdf<-lm(Response ~ Treatment, data = xdf) ) (aov.xdf<-aov(lmxdf) ) (anova.xdf<-anova(lmxdf) ) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'ANOVA Model', length(lmxdf$coefficients)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, paste(V1, ' ~ ', V2), length(lmxdf$coefficients)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, 'means',,TRUE) for(i in 1:length(lmxdf$coefficients)){ a<-table.element(a, round(lmxdf$coefficients[i], digits=3),,FALSE) } a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'ANOVA Statistics', 5+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, ' ',,TRUE) a<-table.element(a, 'Df',,FALSE) a<-table.element(a, 'Sum Sq',,FALSE) a<-table.element(a, 'Mean Sq',,FALSE) a<-table.element(a, 'F value',,FALSE) a<-table.element(a, 'Pr(>F)',,FALSE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, V2,,TRUE) a<-table.element(a, anova.xdf$Df[1],,FALSE) a<-table.element(a, round(anova.xdf$'Sum Sq'[1], digits=3),,FALSE) a<-table.element(a, round(anova.xdf$'Mean Sq'[1], digits=3),,FALSE) a<-table.element(a, round(anova.xdf$'F value'[1], digits=3),,FALSE) a<-table.element(a, round(anova.xdf$'Pr(>F)'[1], digits=3),,FALSE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, 'Residuals',,TRUE) a<-table.element(a, anova.xdf$Df[2],,FALSE) a<-table.element(a, round(anova.xdf$'Sum Sq'[2], digits=3),,FALSE) a<-table.element(a, round(anova.xdf$'Mean Sq'[2], digits=3),,FALSE) a<-table.element(a, ' ',,FALSE) a<-table.element(a, ' ',,FALSE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab') bitmap(file='anovaplot.png') boxplot(Response ~ Treatment, data=xdf, xlab=V2, ylab=V1) dev.off() if(intercept==TRUE){ 'Tukey Plot' thsd<-TukeyHSD(aov.xdf) bitmap(file='TukeyHSDPlot.png') plot(thsd) dev.off() } if(intercept==TRUE){ a<-table.start() a<-table.row.start(a) a<-table.element(a,'Tukey Honest Significant Difference Comparisons', 5,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, ' ', 1, TRUE) for(i in 1:4){ a<-table.element(a,colnames(thsd[[1]])[i], 1, TRUE) } a<-table.row.end(a) for(i in 1:length(rownames(thsd[[1]]))){ a<-table.row.start(a) a<-table.element(a,rownames(thsd[[1]])[i], 1, TRUE) for(j in 1:4){ a<-table.element(a,round(thsd[[1]][i,j], digits=3), 1, FALSE) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable2.tab') } if(intercept==FALSE){ a<-table.start() a<-table.row.start(a) a<-table.element(a,'TukeyHSD Message', 1,TRUE) a<-table.row.end(a) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Must Include Intercept to use Tukey Test ', 1, FALSE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable2.tab') } library(car) lt.lmxdf<-leveneTest(lmxdf) a<-table.start() a<-table.row.start(a) a<-table.element(a,'Levenes Test for Homogeneity of Variance', 4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ', 1, TRUE) for (i in 1:3){ a<-table.element(a,names(lt.lmxdf)[i], 1, FALSE) } a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Group', 1, TRUE) for (i in 1:3){ a<-table.element(a,round(lt.lmxdf[[i]][1], digits=3), 1, FALSE) } a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ', 1, TRUE) a<-table.element(a,lt.lmxdf[[1]][2], 1, FALSE) a<-table.element(a,' ', 1, FALSE) a<-table.element(a,' ', 1, FALSE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable3.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