R version 2.15.3 (2013-03-01) -- "Security Blanket" Copyright (C) 2013 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i686-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- c(0.428571,0.875,0,0.142857,0.833333,0,0,0,0.625,0.142857,0.571429,0.166667,0.25,0,0.166667,0.285714,0,0.142857,0,0.142857,0.142857,0.285714,0,0.142857,0.142857,0.285714,0.571429,0,0,0.285714,0.285714,0,0.285714,0,0,0,0.6,0.625,0.285714,0,0.142857,0,0.142857,0.142857,0.142857,0.142857,0.142857,0.142857,0.333333,0.142857,0.166667,0.142857,0.142857,0.285714,0.833333,0.142857,0.142857,0,0.285714,0) > par4 = '1' > par3 = '8' > par2 = '-8' > par1 = 'Simple Box-Cox transform' > par4 <- '1' > par3 <- '8' > par2 <- '-8' > par1 <- 'Simple Box-Cox transform' > #'GNU S' R Code compiled by R2WASP v. 1.2.327 () > #Author: root > #To cite this work: Wessa P., (2013), Box-Cox Normality Plot (v1.1.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_boxcoxnorm.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > # > par2 <- abs(as.numeric(par2)*100) > par3 <- as.numeric(par3)*100 > if(par4=='') par4 <- 0 > par4 <- as.numeric(par4) > numlam <- par2 + par3 + 1 > x <- x + par4 > n <- length(x) > c <- array(NA,dim=c(numlam)) > l <- array(NA,dim=c(numlam)) > mx <- 0 > mxli <- -999 > for (i in 1:numlam) + { + l[i] <- (i-par2-1)/100 + if (l[i] != 0) + { + if (par1 == 'Full Box-Cox transform') x1 <- (x^l[i] - 1) / l[i] + if (par1 == 'Simple Box-Cox transform') x1 <- x^l[i] + } else { + x1 <- log(x) + } + c[i] <- cor(qnorm(ppoints(x), mean=0, sd=1),x1) + if (mx < c[i]) + { + mx <- c[i] + mxli <- l[i] + } + } > c [1] -3.123790e-03 -3.007921e-03 -2.891872e-03 -2.775642e-03 -2.659232e-03 [6] -2.542641e-03 -2.425868e-03 -2.308914e-03 -2.191779e-03 -2.074462e-03 [11] -1.956962e-03 -1.839281e-03 -1.721417e-03 -1.603370e-03 -1.485141e-03 [16] -1.366728e-03 -1.248133e-03 -1.129353e-03 -1.010390e-03 -8.912429e-04 [21] -7.719116e-04 -6.523959e-04 -5.326956e-04 -4.128105e-04 -2.927404e-04 [26] -1.724850e-04 -5.204409e-05 6.858246e-05 1.893949e-04 3.103935e-04 [31] 4.315783e-04 5.529497e-04 6.745079e-04 7.962530e-04 9.181852e-04 [36] 1.040305e-03 1.162612e-03 1.285107e-03 1.407790e-03 1.530661e-03 [41] 1.653721e-03 1.776969e-03 1.900407e-03 2.024033e-03 2.147848e-03 [46] 2.271853e-03 2.396048e-03 2.520432e-03 2.645007e-03 2.769772e-03 [51] 2.894727e-03 3.019873e-03 3.145210e-03 3.270738e-03 3.396458e-03 [56] 3.522369e-03 3.648472e-03 3.774766e-03 3.901253e-03 4.027932e-03 [61] 4.154804e-03 4.281868e-03 4.409125e-03 4.536576e-03 4.664219e-03 [66] 4.792057e-03 4.920088e-03 5.048313e-03 5.176732e-03 5.305345e-03 [71] 5.434153e-03 5.563156e-03 5.692353e-03 5.821746e-03 5.951334e-03 [76] 6.081117e-03 6.211096e-03 6.341271e-03 6.471642e-03 6.602210e-03 [81] 6.732974e-03 6.863934e-03 6.995091e-03 7.126446e-03 7.257997e-03 [86] 7.389746e-03 7.521693e-03 7.653837e-03 7.786179e-03 7.918720e-03 [91] 8.051459e-03 8.184396e-03 8.317532e-03 8.450867e-03 8.584401e-03 [96] 8.718134e-03 8.852067e-03 8.986200e-03 9.120532e-03 9.255064e-03 [101] 9.389796e-03 9.524729e-03 9.659862e-03 9.795196e-03 9.930731e-03 [106] 1.006647e-02 1.020240e-02 1.033854e-02 1.047488e-02 1.061142e-02 [111] 1.074817e-02 1.088511e-02 1.102226e-02 1.115961e-02 1.129716e-02 [116] 1.143492e-02 1.157288e-02 1.171104e-02 1.184941e-02 1.198797e-02 [121] 1.212675e-02 1.226572e-02 1.240490e-02 1.254429e-02 1.268387e-02 [126] 1.282367e-02 1.296366e-02 1.310387e-02 1.324427e-02 1.338488e-02 [131] 1.352570e-02 1.366672e-02 1.380795e-02 1.394939e-02 1.409103e-02 [136] 1.423287e-02 1.437492e-02 1.451718e-02 1.465964e-02 1.480231e-02 [141] 1.494519e-02 1.508828e-02 1.523157e-02 1.537507e-02 1.551877e-02 [146] 1.566269e-02 1.580681e-02 1.595114e-02 1.609567e-02 1.624042e-02 [151] 1.638537e-02 1.653053e-02 1.667590e-02 1.682148e-02 1.696726e-02 [156] 1.711326e-02 1.725946e-02 1.740588e-02 1.755250e-02 1.769933e-02 [161] 1.784637e-02 1.799362e-02 1.814108e-02 1.828876e-02 1.843664e-02 [166] 1.858473e-02 1.873303e-02 1.888154e-02 1.903026e-02 1.917919e-02 [171] 1.932834e-02 1.947769e-02 1.962725e-02 1.977703e-02 1.992702e-02 [176] 2.007722e-02 2.022762e-02 2.037825e-02 2.052908e-02 2.068012e-02 [181] 2.083138e-02 2.098285e-02 2.113453e-02 2.128642e-02 2.143852e-02 [186] 2.159084e-02 2.174337e-02 2.189611e-02 2.204906e-02 2.220223e-02 [191] 2.235561e-02 2.250920e-02 2.266301e-02 2.281703e-02 2.297126e-02 [196] 2.312570e-02 2.328036e-02 2.343523e-02 2.359032e-02 2.374561e-02 [201] 2.390113e-02 2.405685e-02 2.421279e-02 2.436894e-02 2.452531e-02 [206] 2.468189e-02 2.483869e-02 2.499570e-02 2.515292e-02 2.531036e-02 [211] 2.546801e-02 2.562588e-02 2.578396e-02 2.594225e-02 2.610076e-02 [216] 2.625949e-02 2.641843e-02 2.657758e-02 2.673695e-02 2.689654e-02 [221] 2.705633e-02 2.721635e-02 2.737658e-02 2.753702e-02 2.769768e-02 [226] 2.785855e-02 2.801964e-02 2.818095e-02 2.834246e-02 2.850420e-02 [231] 2.866615e-02 2.882831e-02 2.899069e-02 2.915329e-02 2.931610e-02 [236] 2.947913e-02 2.964237e-02 2.980583e-02 2.996950e-02 3.013339e-02 [241] 3.029749e-02 3.046181e-02 3.062635e-02 3.079110e-02 3.095607e-02 [246] 3.112125e-02 3.128665e-02 3.145226e-02 3.161809e-02 3.178413e-02 [251] 3.195039e-02 3.211687e-02 3.228356e-02 3.245047e-02 3.261759e-02 [256] 3.278493e-02 3.295248e-02 3.312025e-02 3.328823e-02 3.345643e-02 [261] 3.362485e-02 3.379348e-02 3.396233e-02 3.413139e-02 3.430066e-02 [266] 3.447016e-02 3.463986e-02 3.480979e-02 3.497992e-02 3.515028e-02 [271] 3.532084e-02 3.549163e-02 3.566263e-02 3.583384e-02 3.600527e-02 [276] 3.617691e-02 3.634877e-02 3.652084e-02 3.669313e-02 3.686563e-02 [281] 3.703835e-02 3.721128e-02 3.738443e-02 3.755779e-02 3.773136e-02 [286] 3.790515e-02 3.807915e-02 3.825337e-02 3.842780e-02 3.860245e-02 [291] 3.877731e-02 3.895238e-02 3.912766e-02 3.930316e-02 3.947888e-02 [296] 3.965480e-02 3.983094e-02 4.000730e-02 4.018386e-02 4.036064e-02 [301] 4.053764e-02 4.071484e-02 4.089226e-02 4.106989e-02 4.124773e-02 [306] 4.142579e-02 4.160406e-02 4.178253e-02 4.196123e-02 4.214013e-02 [311] 4.231924e-02 4.249857e-02 4.267811e-02 4.285786e-02 4.303782e-02 [316] 4.321799e-02 4.339837e-02 4.357896e-02 4.375977e-02 4.394078e-02 [321] 4.412200e-02 4.430344e-02 4.448508e-02 4.466693e-02 4.484900e-02 [326] 4.503127e-02 4.521375e-02 4.539644e-02 4.557934e-02 4.576245e-02 [331] 4.594577e-02 4.612929e-02 4.631303e-02 4.649697e-02 4.668112e-02 [336] 4.686547e-02 4.705004e-02 4.723481e-02 4.741979e-02 4.760497e-02 [341] 4.779036e-02 4.797596e-02 4.816176e-02 4.834777e-02 4.853399e-02 [346] 4.872041e-02 4.890703e-02 4.909386e-02 4.928090e-02 4.946814e-02 [351] 4.965558e-02 4.984323e-02 5.003108e-02 5.021914e-02 5.040740e-02 [356] 5.059586e-02 5.078453e-02 5.097339e-02 5.116246e-02 5.135173e-02 [361] 5.154121e-02 5.173088e-02 5.192076e-02 5.211083e-02 5.230111e-02 [366] 5.249159e-02 5.268227e-02 5.287315e-02 5.306422e-02 5.325550e-02 [371] 5.344697e-02 5.363865e-02 5.383052e-02 5.402259e-02 5.421486e-02 [376] 5.440732e-02 5.459998e-02 5.479284e-02 5.498590e-02 5.517915e-02 [381] 5.537259e-02 5.556624e-02 5.576007e-02 5.595411e-02 5.614833e-02 [386] 5.634275e-02 5.653737e-02 5.673217e-02 5.692717e-02 5.712237e-02 [391] 5.731775e-02 5.751333e-02 5.770910e-02 5.790506e-02 5.810121e-02 [396] 5.829755e-02 5.849408e-02 5.869080e-02 5.888771e-02 5.908481e-02 [401] 5.928210e-02 5.947957e-02 5.967723e-02 5.987508e-02 6.007312e-02 [406] 6.027134e-02 6.046975e-02 6.066835e-02 6.086713e-02 6.106609e-02 [411] 6.126524e-02 6.146458e-02 6.166409e-02 6.186379e-02 6.206367e-02 [416] 6.226374e-02 6.246398e-02 6.266441e-02 6.286502e-02 6.306581e-02 [421] 6.326678e-02 6.346792e-02 6.366925e-02 6.387076e-02 6.407244e-02 [426] 6.427430e-02 6.447634e-02 6.467855e-02 6.488094e-02 6.508351e-02 [431] 6.528625e-02 6.548916e-02 6.569225e-02 6.589551e-02 6.609895e-02 [436] 6.630256e-02 6.650634e-02 6.671029e-02 6.691441e-02 6.711870e-02 [441] 6.732317e-02 6.752780e-02 6.773260e-02 6.793757e-02 6.814271e-02 [446] 6.834801e-02 6.855348e-02 6.875912e-02 6.896492e-02 6.917089e-02 [451] 6.937702e-02 6.958331e-02 6.978977e-02 6.999639e-02 7.020317e-02 [456] 7.041012e-02 7.061722e-02 7.082449e-02 7.103191e-02 7.123949e-02 [461] 7.144724e-02 7.165514e-02 7.186319e-02 7.207141e-02 7.227978e-02 [466] 7.248830e-02 7.269698e-02 7.290582e-02 7.311480e-02 7.332394e-02 [471] 7.353323e-02 7.374268e-02 7.395227e-02 7.416202e-02 7.437191e-02 [476] 7.458195e-02 7.479214e-02 7.500248e-02 7.521297e-02 7.542360e-02 [481] 7.563438e-02 7.584530e-02 7.605636e-02 7.626757e-02 7.647892e-02 [486] 7.669042e-02 7.690205e-02 7.711383e-02 7.732574e-02 7.753780e-02 [491] 7.774999e-02 7.796232e-02 7.817479e-02 7.838739e-02 7.860013e-02 [496] 7.881301e-02 7.902602e-02 7.923916e-02 7.945243e-02 7.966584e-02 [501] 7.987938e-02 8.009304e-02 8.030684e-02 8.052077e-02 8.073482e-02 [506] 8.094900e-02 8.116331e-02 8.137774e-02 8.159230e-02 8.180698e-02 [511] 8.202178e-02 8.223671e-02 8.245176e-02 8.266693e-02 8.288222e-02 [516] 8.309763e-02 8.331316e-02 8.352880e-02 8.374456e-02 8.396044e-02 [521] 8.417643e-02 8.439254e-02 8.460876e-02 8.482509e-02 8.504154e-02 [526] 8.525809e-02 8.547476e-02 8.569153e-02 8.590841e-02 8.612540e-02 [531] 8.634250e-02 8.655970e-02 8.677701e-02 8.699442e-02 8.721193e-02 [536] 8.742955e-02 8.764726e-02 8.786508e-02 8.808300e-02 8.830101e-02 [541] 8.851913e-02 8.873734e-02 8.895564e-02 8.917404e-02 8.939254e-02 [546] 8.961112e-02 8.982980e-02 9.004857e-02 9.026743e-02 9.048638e-02 [551] 9.070542e-02 9.092455e-02 9.114376e-02 9.136306e-02 9.158244e-02 [556] 9.180190e-02 9.202145e-02 9.224108e-02 9.246079e-02 9.268058e-02 [561] 9.290045e-02 9.312040e-02 9.334042e-02 9.356052e-02 9.378069e-02 [566] 9.400094e-02 9.422126e-02 9.444165e-02 9.466211e-02 9.488265e-02 [571] 9.510325e-02 9.532392e-02 9.554465e-02 9.576545e-02 9.598632e-02 [576] 9.620725e-02 9.642824e-02 9.664929e-02 9.687041e-02 9.709158e-02 [581] 9.731281e-02 9.753410e-02 9.775544e-02 9.797684e-02 9.819830e-02 [586] 9.841981e-02 9.864136e-02 9.886298e-02 9.908464e-02 9.930634e-02 [591] 9.952810e-02 9.974991e-02 9.997175e-02 1.001936e-01 1.004156e-01 [596] 1.006376e-01 1.008596e-01 1.010816e-01 1.013037e-01 1.015259e-01 [601] 1.017481e-01 1.019703e-01 1.021925e-01 1.024148e-01 1.026371e-01 [606] 1.028594e-01 1.030818e-01 1.033042e-01 1.035266e-01 1.037491e-01 [611] 1.039716e-01 1.041941e-01 1.044166e-01 1.046392e-01 1.048617e-01 [616] 1.050843e-01 1.053069e-01 1.055295e-01 1.057522e-01 1.059748e-01 [621] 1.061975e-01 1.064202e-01 1.066429e-01 1.068656e-01 1.070883e-01 [626] 1.073110e-01 1.075338e-01 1.077565e-01 1.079793e-01 1.082020e-01 [631] 1.084247e-01 1.086475e-01 1.088702e-01 1.090930e-01 1.093157e-01 [636] 1.095385e-01 1.097612e-01 1.099839e-01 1.102067e-01 1.104294e-01 [641] 1.106521e-01 1.108748e-01 1.110974e-01 1.113201e-01 1.115427e-01 [646] 1.117654e-01 1.119880e-01 1.122106e-01 1.124332e-01 1.126557e-01 [651] 1.128783e-01 1.131008e-01 1.133233e-01 1.135457e-01 1.137682e-01 [656] 1.139906e-01 1.142129e-01 1.144353e-01 1.146576e-01 1.148799e-01 [661] 1.151021e-01 1.153243e-01 1.155465e-01 1.157686e-01 1.159907e-01 [666] 1.162128e-01 1.164348e-01 1.166568e-01 1.168787e-01 1.171006e-01 [671] 1.173224e-01 1.175442e-01 1.177659e-01 1.179876e-01 1.182092e-01 [676] 1.184308e-01 1.186523e-01 1.188738e-01 1.190952e-01 1.193165e-01 [681] 1.195378e-01 1.197591e-01 1.199802e-01 1.202013e-01 1.204224e-01 [686] 1.206433e-01 1.208642e-01 1.210851e-01 1.213058e-01 1.215265e-01 [691] 1.217471e-01 1.219677e-01 1.221881e-01 1.224085e-01 1.226288e-01 [696] 1.228491e-01 1.230692e-01 1.232893e-01 1.235093e-01 1.237292e-01 [701] 1.239490e-01 1.241687e-01 1.243883e-01 1.246079e-01 1.248274e-01 [706] 1.250467e-01 1.252660e-01 1.254852e-01 1.257043e-01 1.259232e-01 [711] 1.261421e-01 1.263609e-01 1.265796e-01 1.267982e-01 1.270166e-01 [716] 1.272350e-01 1.274533e-01 1.276714e-01 1.278895e-01 1.281074e-01 [721] 1.283252e-01 1.285430e-01 1.287606e-01 1.289780e-01 1.291954e-01 [726] 1.294126e-01 1.296298e-01 1.298468e-01 1.300636e-01 1.302804e-01 [731] 1.304970e-01 1.307135e-01 1.309299e-01 1.311462e-01 1.313623e-01 [736] 1.315783e-01 1.317941e-01 1.320098e-01 1.322254e-01 1.324409e-01 [741] 1.326562e-01 1.328714e-01 1.330864e-01 1.333013e-01 1.335160e-01 [746] 1.337306e-01 1.339451e-01 1.341594e-01 1.343735e-01 1.345875e-01 [751] 1.348014e-01 1.350151e-01 1.352287e-01 1.354421e-01 1.356553e-01 [756] 1.358684e-01 1.360813e-01 1.362941e-01 1.365067e-01 1.367191e-01 [761] 1.369314e-01 1.371435e-01 1.373554e-01 1.375672e-01 1.377788e-01 [766] 1.379903e-01 1.382015e-01 1.384126e-01 1.386236e-01 1.388343e-01 [771] 1.390449e-01 1.392553e-01 1.394655e-01 1.396755e-01 1.398853e-01 [776] 1.400950e-01 1.403045e-01 1.405138e-01 1.407229e-01 1.409318e-01 [781] 1.411406e-01 1.413491e-01 1.415575e-01 1.417656e-01 1.419736e-01 [786] 1.421813e-01 1.423889e-01 1.425963e-01 1.428035e-01 1.430104e-01 [791] 1.432172e-01 1.434238e-01 1.436302e-01 1.438363e-01 1.440423e-01 [796] 1.442480e-01 1.444536e-01 1.446589e-01 1.448640e-01 1.450689e-01 [801] -1.452736e-01 -1.454781e-01 -1.456824e-01 -1.458864e-01 -1.460902e-01 [806] -1.462938e-01 -1.464972e-01 -1.467004e-01 -1.469033e-01 -1.471061e-01 [811] -1.473085e-01 -1.475108e-01 -1.477129e-01 -1.479147e-01 -1.481162e-01 [816] -1.483176e-01 -1.485187e-01 -1.487196e-01 -1.489202e-01 -1.491207e-01 [821] -1.493208e-01 -1.495208e-01 -1.497205e-01 -1.499199e-01 -1.501191e-01 [826] -1.503181e-01 -1.505168e-01 -1.507153e-01 -1.509136e-01 -1.511116e-01 [831] -1.513093e-01 -1.515068e-01 -1.517041e-01 -1.519011e-01 -1.520978e-01 [836] -1.522943e-01 -1.524905e-01 -1.526865e-01 -1.528822e-01 -1.530777e-01 [841] -1.532729e-01 -1.534678e-01 -1.536625e-01 -1.538569e-01 -1.540511e-01 [846] -1.542450e-01 -1.544386e-01 -1.546320e-01 -1.548251e-01 -1.550179e-01 [851] -1.552105e-01 -1.554028e-01 -1.555948e-01 -1.557865e-01 -1.559780e-01 [856] -1.561692e-01 -1.563601e-01 -1.565508e-01 -1.567411e-01 -1.569312e-01 [861] -1.571210e-01 -1.573106e-01 -1.574998e-01 -1.576888e-01 -1.578775e-01 [866] -1.580659e-01 -1.582540e-01 -1.584418e-01 -1.586293e-01 -1.588166e-01 [871] -1.590036e-01 -1.591902e-01 -1.593766e-01 -1.595627e-01 -1.597485e-01 [876] -1.599340e-01 -1.601192e-01 -1.603041e-01 -1.604888e-01 -1.606731e-01 [881] -1.608571e-01 -1.610408e-01 -1.612243e-01 -1.614074e-01 -1.615902e-01 [886] -1.617727e-01 -1.619550e-01 -1.621369e-01 -1.623185e-01 -1.624998e-01 [891] -1.626808e-01 -1.628615e-01 -1.630418e-01 -1.632219e-01 -1.634017e-01 [896] -1.635811e-01 -1.637603e-01 -1.639391e-01 -1.641176e-01 -1.642958e-01 [901] -1.644737e-01 -1.646513e-01 -1.648285e-01 -1.650054e-01 -1.651821e-01 [906] -1.653584e-01 -1.655343e-01 -1.657100e-01 -1.658853e-01 -1.660603e-01 [911] -1.662350e-01 -1.664094e-01 -1.665835e-01 -1.667572e-01 -1.669306e-01 [916] -1.671036e-01 -1.672764e-01 -1.674488e-01 -1.676209e-01 -1.677926e-01 [921] -1.679641e-01 -1.681352e-01 -1.683059e-01 -1.684764e-01 -1.686465e-01 [926] -1.688163e-01 -1.689857e-01 -1.691548e-01 -1.693236e-01 -1.694920e-01 [931] -1.696601e-01 -1.698279e-01 -1.699953e-01 -1.701624e-01 -1.703291e-01 [936] -1.704955e-01 -1.706616e-01 -1.708273e-01 -1.709927e-01 -1.711577e-01 [941] -1.713224e-01 -1.714868e-01 -1.716508e-01 -1.718145e-01 -1.719778e-01 [946] -1.721408e-01 -1.723034e-01 -1.724657e-01 -1.726277e-01 -1.727893e-01 [951] -1.729505e-01 -1.731114e-01 -1.732720e-01 -1.734322e-01 -1.735920e-01 [956] -1.737515e-01 -1.739107e-01 -1.740695e-01 -1.742280e-01 -1.743861e-01 [961] -1.745438e-01 -1.747012e-01 -1.748582e-01 -1.750149e-01 -1.751713e-01 [966] -1.753272e-01 -1.754829e-01 -1.756381e-01 -1.757931e-01 -1.759476e-01 [971] -1.761018e-01 -1.762557e-01 -1.764091e-01 -1.765623e-01 -1.767150e-01 [976] -1.768675e-01 -1.770195e-01 -1.771712e-01 -1.773225e-01 -1.774735e-01 [981] -1.776241e-01 -1.777744e-01 -1.779243e-01 -1.780738e-01 -1.782229e-01 [986] -1.783718e-01 -1.785202e-01 -1.786683e-01 -1.788160e-01 -1.789633e-01 [991] -1.791103e-01 -1.792570e-01 -1.794032e-01 -1.795491e-01 -1.796947e-01 [996] -1.798398e-01 -1.799846e-01 -1.801291e-01 -1.802731e-01 -1.804168e-01 [1001] -1.805602e-01 -1.807032e-01 -1.808458e-01 -1.809880e-01 -1.811299e-01 [1006] -1.812714e-01 -1.814125e-01 -1.815533e-01 -1.816937e-01 -1.818337e-01 [1011] -1.819734e-01 -1.821127e-01 -1.822516e-01 -1.823902e-01 -1.825284e-01 [1016] -1.826662e-01 -1.828036e-01 -1.829407e-01 -1.830774e-01 -1.832138e-01 [1021] -1.833498e-01 -1.834854e-01 -1.836206e-01 -1.837555e-01 -1.838900e-01 [1026] -1.840241e-01 -1.841579e-01 -1.842912e-01 -1.844243e-01 -1.845569e-01 [1031] -1.846892e-01 -1.848211e-01 -1.849526e-01 -1.850838e-01 -1.852146e-01 [1036] -1.853450e-01 -1.854750e-01 -1.856047e-01 -1.857340e-01 -1.858630e-01 [1041] -1.859915e-01 -1.861197e-01 -1.862475e-01 -1.863750e-01 -1.865021e-01 [1046] -1.866288e-01 -1.867551e-01 -1.868811e-01 -1.870067e-01 -1.871319e-01 [1051] -1.872568e-01 -1.873813e-01 -1.875054e-01 -1.876291e-01 -1.877525e-01 [1056] -1.878755e-01 -1.879981e-01 -1.881204e-01 -1.882423e-01 -1.883638e-01 [1061] -1.884849e-01 -1.886057e-01 -1.887261e-01 -1.888462e-01 -1.889658e-01 [1066] -1.890851e-01 -1.892041e-01 -1.893226e-01 -1.894408e-01 -1.895587e-01 [1071] -1.896761e-01 -1.897932e-01 -1.899099e-01 -1.900263e-01 -1.901422e-01 [1076] -1.902579e-01 -1.903731e-01 -1.904880e-01 -1.906025e-01 -1.907166e-01 [1081] -1.908304e-01 -1.909438e-01 -1.910568e-01 -1.911695e-01 -1.912818e-01 [1086] -1.913937e-01 -1.915053e-01 -1.916165e-01 -1.917274e-01 -1.918378e-01 [1091] -1.919479e-01 -1.920577e-01 -1.921671e-01 -1.922761e-01 -1.923847e-01 [1096] -1.924930e-01 -1.926009e-01 -1.927085e-01 -1.928157e-01 -1.929225e-01 [1101] -1.930290e-01 -1.931351e-01 -1.932408e-01 -1.933462e-01 -1.934512e-01 [1106] -1.935559e-01 -1.936602e-01 -1.937641e-01 -1.938677e-01 -1.939709e-01 [1111] -1.940738e-01 -1.941763e-01 -1.942784e-01 -1.943802e-01 -1.944816e-01 [1116] -1.945827e-01 -1.946834e-01 -1.947837e-01 -1.948837e-01 -1.949834e-01 [1121] -1.950826e-01 -1.951815e-01 -1.952801e-01 -1.953783e-01 -1.954762e-01 [1126] -1.955737e-01 -1.956708e-01 -1.957676e-01 -1.958640e-01 -1.959601e-01 [1131] -1.960558e-01 -1.961512e-01 -1.962462e-01 -1.963409e-01 -1.964352e-01 [1136] -1.965292e-01 -1.966228e-01 -1.967161e-01 -1.968090e-01 -1.969016e-01 [1141] -1.969938e-01 -1.970857e-01 -1.971772e-01 -1.972684e-01 -1.973592e-01 [1146] -1.974497e-01 -1.975398e-01 -1.976296e-01 -1.977191e-01 -1.978082e-01 [1151] -1.978970e-01 -1.979854e-01 -1.980734e-01 -1.981612e-01 -1.982486e-01 [1156] -1.983356e-01 -1.984223e-01 -1.985087e-01 -1.985947e-01 -1.986804e-01 [1161] -1.987657e-01 -1.988507e-01 -1.989354e-01 -1.990197e-01 -1.991037e-01 [1166] -1.991873e-01 -1.992706e-01 -1.993536e-01 -1.994363e-01 -1.995186e-01 [1171] -1.996005e-01 -1.996822e-01 -1.997635e-01 -1.998444e-01 -1.999251e-01 [1176] -2.000054e-01 -2.000854e-01 -2.001650e-01 -2.002443e-01 -2.003233e-01 [1181] -2.004020e-01 -2.004803e-01 -2.005583e-01 -2.006360e-01 -2.007133e-01 [1186] -2.007903e-01 -2.008670e-01 -2.009434e-01 -2.010194e-01 -2.010951e-01 [1191] -2.011705e-01 -2.012456e-01 -2.013203e-01 -2.013947e-01 -2.014689e-01 [1196] -2.015426e-01 -2.016161e-01 -2.016892e-01 -2.017621e-01 -2.018346e-01 [1201] -2.019067e-01 -2.019786e-01 -2.020502e-01 -2.021214e-01 -2.021923e-01 [1206] -2.022629e-01 -2.023332e-01 -2.024032e-01 -2.024728e-01 -2.025422e-01 [1211] -2.026112e-01 -2.026800e-01 -2.027484e-01 -2.028165e-01 -2.028843e-01 [1216] -2.029518e-01 -2.030189e-01 -2.030858e-01 -2.031524e-01 -2.032186e-01 [1221] -2.032846e-01 -2.033502e-01 -2.034156e-01 -2.034806e-01 -2.035454e-01 [1226] -2.036098e-01 -2.036739e-01 -2.037377e-01 -2.038013e-01 -2.038645e-01 [1231] -2.039274e-01 -2.039901e-01 -2.040524e-01 -2.041144e-01 -2.041762e-01 [1236] -2.042376e-01 -2.042987e-01 -2.043596e-01 -2.044201e-01 -2.044804e-01 [1241] -2.045404e-01 -2.046001e-01 -2.046594e-01 -2.047185e-01 -2.047773e-01 [1246] -2.048359e-01 -2.048941e-01 -2.049520e-01 -2.050097e-01 -2.050670e-01 [1251] -2.051241e-01 -2.051809e-01 -2.052374e-01 -2.052936e-01 -2.053495e-01 [1256] -2.054052e-01 -2.054606e-01 -2.055157e-01 -2.055705e-01 -2.056250e-01 [1261] -2.056793e-01 -2.057332e-01 -2.057869e-01 -2.058403e-01 -2.058935e-01 [1266] -2.059463e-01 -2.059989e-01 -2.060512e-01 -2.061033e-01 -2.061550e-01 [1271] -2.062065e-01 -2.062577e-01 -2.063087e-01 -2.063593e-01 -2.064098e-01 [1276] -2.064599e-01 -2.065098e-01 -2.065594e-01 -2.066087e-01 -2.066578e-01 [1281] -2.067066e-01 -2.067551e-01 -2.068034e-01 -2.068514e-01 -2.068991e-01 [1286] -2.069466e-01 -2.069938e-01 -2.070408e-01 -2.070875e-01 -2.071339e-01 [1291] -2.071801e-01 -2.072260e-01 -2.072717e-01 -2.073171e-01 -2.073622e-01 [1296] -2.074071e-01 -2.074518e-01 -2.074961e-01 -2.075403e-01 -2.075842e-01 [1301] -2.076278e-01 -2.076712e-01 -2.077143e-01 -2.077572e-01 -2.077998e-01 [1306] -2.078422e-01 -2.078843e-01 -2.079262e-01 -2.079678e-01 -2.080092e-01 [1311] -2.080504e-01 -2.080913e-01 -2.081319e-01 -2.081724e-01 -2.082125e-01 [1316] -2.082525e-01 -2.082922e-01 -2.083316e-01 -2.083708e-01 -2.084098e-01 [1321] -2.084485e-01 -2.084870e-01 -2.085253e-01 -2.085633e-01 -2.086011e-01 [1326] -2.086387e-01 -2.086760e-01 -2.087131e-01 -2.087500e-01 -2.087866e-01 [1331] -2.088230e-01 -2.088592e-01 -2.088951e-01 -2.089308e-01 -2.089663e-01 [1336] -2.090015e-01 -2.090366e-01 -2.090714e-01 -2.091059e-01 -2.091403e-01 [1341] -2.091744e-01 -2.092083e-01 -2.092420e-01 -2.092755e-01 -2.093087e-01 [1346] -2.093417e-01 -2.093745e-01 -2.094071e-01 -2.094395e-01 -2.094716e-01 [1351] -2.095036e-01 -2.095353e-01 -2.095668e-01 -2.095981e-01 -2.096291e-01 [1356] -2.096600e-01 -2.096906e-01 -2.097211e-01 -2.097513e-01 -2.097813e-01 [1361] -2.098111e-01 -2.098407e-01 -2.098701e-01 -2.098992e-01 -2.099282e-01 [1366] -2.099570e-01 -2.099855e-01 -2.100139e-01 -2.100420e-01 -2.100700e-01 [1371] -2.100977e-01 -2.101252e-01 -2.101526e-01 -2.101797e-01 -2.102067e-01 [1376] -2.102334e-01 -2.102599e-01 -2.102863e-01 -2.103124e-01 -2.103384e-01 [1381] -2.103641e-01 -2.103897e-01 -2.104150e-01 -2.104402e-01 -2.104652e-01 [1386] -2.104899e-01 -2.105145e-01 -2.105389e-01 -2.105631e-01 -2.105872e-01 [1391] -2.106110e-01 -2.106346e-01 -2.106581e-01 -2.106813e-01 -2.107044e-01 [1396] -2.107273e-01 -2.107500e-01 -2.107725e-01 -2.107949e-01 -2.108170e-01 [1401] -2.108390e-01 -2.108608e-01 -2.108824e-01 -2.109038e-01 -2.109251e-01 [1406] -2.109462e-01 -2.109671e-01 -2.109878e-01 -2.110083e-01 -2.110287e-01 [1411] -2.110489e-01 -2.110689e-01 -2.110887e-01 -2.111084e-01 -2.111279e-01 [1416] -2.111472e-01 -2.111663e-01 -2.111853e-01 -2.112041e-01 -2.112227e-01 [1421] -2.112412e-01 -2.112595e-01 -2.112776e-01 -2.112956e-01 -2.113134e-01 [1426] -2.113310e-01 -2.113485e-01 -2.113658e-01 -2.113829e-01 -2.113999e-01 [1431] -2.114167e-01 -2.114333e-01 -2.114498e-01 -2.114661e-01 -2.114823e-01 [1436] -2.114983e-01 -2.115141e-01 -2.115298e-01 -2.115454e-01 -2.115607e-01 [1441] -2.115759e-01 -2.115910e-01 -2.116059e-01 -2.116207e-01 -2.116353e-01 [1446] -2.116497e-01 -2.116640e-01 -2.116781e-01 -2.116921e-01 -2.117060e-01 [1451] -2.117196e-01 -2.117332e-01 -2.117466e-01 -2.117598e-01 -2.117729e-01 [1456] -2.117858e-01 -2.117986e-01 -2.118113e-01 -2.118238e-01 -2.118362e-01 [1461] -2.118484e-01 -2.118605e-01 -2.118724e-01 -2.118842e-01 -2.118958e-01 [1466] -2.119073e-01 -2.119187e-01 -2.119299e-01 -2.119410e-01 -2.119520e-01 [1471] -2.119628e-01 -2.119735e-01 -2.119840e-01 -2.119944e-01 -2.120047e-01 [1476] -2.120148e-01 -2.120248e-01 -2.120347e-01 -2.120444e-01 -2.120540e-01 [1481] -2.120635e-01 -2.120728e-01 -2.120820e-01 -2.120911e-01 -2.121000e-01 [1486] -2.121088e-01 -2.121175e-01 -2.121261e-01 -2.121345e-01 -2.121428e-01 [1491] -2.121510e-01 -2.121590e-01 -2.121670e-01 -2.121748e-01 -2.121824e-01 [1496] -2.121900e-01 -2.121974e-01 -2.122047e-01 -2.122119e-01 -2.122190e-01 [1501] -2.122259e-01 -2.122328e-01 -2.122395e-01 -2.122461e-01 -2.122525e-01 [1506] -2.122589e-01 -2.122651e-01 -2.122712e-01 -2.122772e-01 -2.122831e-01 [1511] -2.122889e-01 -2.122946e-01 -2.123001e-01 -2.123055e-01 -2.123108e-01 [1516] -2.123161e-01 -2.123211e-01 -2.123261e-01 -2.123310e-01 -2.123358e-01 [1521] -2.123404e-01 -2.123450e-01 -2.123494e-01 -2.123537e-01 -2.123579e-01 [1526] -2.123620e-01 -2.123661e-01 -2.123700e-01 -2.123737e-01 -2.123774e-01 [1531] -2.123810e-01 -2.123845e-01 -2.123879e-01 -2.123912e-01 -2.123943e-01 [1536] -2.123974e-01 -2.124004e-01 -2.124032e-01 -2.124060e-01 -2.124087e-01 [1541] -2.124112e-01 -2.124137e-01 -2.124161e-01 -2.124184e-01 -2.124205e-01 [1546] -2.124226e-01 -2.124246e-01 -2.124265e-01 -2.124283e-01 -2.124300e-01 [1551] -2.124316e-01 -2.124331e-01 -2.124345e-01 -2.124359e-01 -2.124371e-01 [1556] -2.124382e-01 -2.124393e-01 -2.124402e-01 -2.124411e-01 -2.124419e-01 [1561] -2.124426e-01 -2.124432e-01 -2.124437e-01 -2.124441e-01 -2.124445e-01 [1566] -2.124447e-01 -2.124449e-01 -2.124450e-01 -2.124450e-01 -2.124449e-01 [1571] -2.124447e-01 -2.124444e-01 -2.124441e-01 -2.124437e-01 -2.124432e-01 [1576] -2.124426e-01 -2.124419e-01 -2.124412e-01 -2.124403e-01 -2.124394e-01 [1581] -2.124384e-01 -2.124373e-01 -2.124362e-01 -2.124350e-01 -2.124336e-01 [1586] -2.124323e-01 -2.124308e-01 -2.124293e-01 -2.124276e-01 -2.124259e-01 [1591] -2.124242e-01 -2.124223e-01 -2.124204e-01 -2.124184e-01 -2.124164e-01 [1596] -2.124142e-01 -2.124120e-01 -2.124097e-01 -2.124074e-01 -2.124049e-01 [1601] -2.124024e-01 > mx [1] 0.1450689 > mxli [1] -0.01 > if (mxli != 0) + { + if (par1 == 'Full Box-Cox transform') x1 <- (x^mxli - 1) / mxli + if (par1 == 'Simple Box-Cox transform') x1 <- x^mxli + } else { + x1 <- log(x) + } > postscript(file="/var/fisher/rcomp/tmp/18dnk1367855513.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(l,c,main='Box-Cox Normality Plot', xlab='Lambda',ylab='correlation') > mtext(paste('Optimal Lambda =',mxli)) > grid() > dev.off() null device 1 > postscript(file="/var/fisher/rcomp/tmp/235bh1367855513.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > hist(x,main='Histogram of Original Data',xlab='X',ylab='frequency') > grid() > dev.off() null device 1 > postscript(file="/var/fisher/rcomp/tmp/3olu51367855513.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > hist(x1,main='Histogram of Transformed Data', xlab='X',ylab='frequency') > grid() > dev.off() null device 1 > postscript(file="/var/fisher/rcomp/tmp/4sdkm1367855513.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > qqnorm(x) > qqline(x) > grid() > mtext('Original Data') > dev.off() null device 1 > postscript(file="/var/fisher/rcomp/tmp/511ob1367855513.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > qqnorm(x1) > qqline(x1) > grid() > mtext('Transformed Data') > dev.off() null device 1 > > #Note: the /var/fisher/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/fisher/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Box-Cox Normality Plot',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'# observations x',header=TRUE) > a<-table.element(a,n) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'maximum correlation',header=TRUE) > a<-table.element(a,mx) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'optimal lambda',header=TRUE) > a<-table.element(a,mxli) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/fisher/rcomp/tmp/6h3ph1367855513.tab") > > try(system("convert tmp/18dnk1367855513.ps tmp/18dnk1367855513.png",intern=TRUE)) character(0) > try(system("convert tmp/235bh1367855513.ps tmp/235bh1367855513.png",intern=TRUE)) character(0) > try(system("convert tmp/3olu51367855513.ps tmp/3olu51367855513.png",intern=TRUE)) character(0) > try(system("convert tmp/4sdkm1367855513.ps tmp/4sdkm1367855513.png",intern=TRUE)) character(0) > try(system("convert tmp/511ob1367855513.ps tmp/511ob1367855513.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 2.734 0.362 3.085