This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

help.start()
## starting httpd help server ...
##  done
## If the browser launched by 'xdg-open' is already running, it is
##     *not* restarted, and you must switch to its window.
## Otherwise, be patient ...
x<-rnorm(50)
y<-rnorm(x)
plot(x,y)

ls()
## [1] "x" "y"
rm(x,y)

x<-1:20
w<-1+sqrt(x)/2
dummy<-data.frame(x=x, y=rnorm(x)*w)
dummy<-data.frame(x=x, y=rnorm(x)*w)
dummy
##     x            y
## 1   1  2.203467873
## 2   2 -2.737781341
## 3   3 -0.090437019
## 4   4 -0.264884966
## 5   5  2.652108733
## 6   6 -1.664542682
## 7   7 -3.017632247
## 8   8 -2.053749314
## 9   9 -4.606739679
## 10 10  4.362302702
## 11 11  0.002241071
## 12 12  5.050750809
## 13 13  2.612871218
## 14 14  2.635504896
## 15 15 -1.843042309
## 16 16  3.577076525
## 17 17  0.266398377
## 18 18  0.788228759
## 19 19  4.719635857
## 20 20 -2.743355140
fm<-lm(y~x, data=dummy)
fm
## 
## Call:
## lm(formula = y ~ x, data = dummy)
## 
## Coefficients:
## (Intercept)            x  
##     -0.6836       0.1120
summary(dummy)
##        x               y          
##  Min.   : 1.00   Min.   :-4.6067  
##  1st Qu.: 5.75   1st Qu.:-1.8957  
##  Median :10.50   Median : 0.1343  
##  Mean   :10.50   Mean   : 0.4924  
##  3rd Qu.:15.25   3rd Qu.: 2.6397  
##  Max.   :20.00   Max.   : 5.0508
plot(fm)

fm1<-lm(y~x, data=dummy)
summary(fm1)
## 
## Call:
## lm(formula = y ~ x, data = dummy)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.9312 -2.2692 -0.2867  2.5453  4.3903 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  -0.6836     1.3347  -0.512    0.615
## x             0.1120     0.1114   1.005    0.328
## 
## Residual standard error: 2.873 on 18 degrees of freedom
## Multiple R-squared:  0.05316,    Adjusted R-squared:  0.0005532 
## F-statistic: 1.011 on 1 and 18 DF,  p-value: 0.3281
summary(fm1)
## 
## Call:
## lm(formula = y ~ x, data = dummy)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.9312 -2.2692 -0.2867  2.5453  4.3903 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  -0.6836     1.3347  -0.512    0.615
## x             0.1120     0.1114   1.005    0.328
## 
## Residual standard error: 2.873 on 18 degrees of freedom
## Multiple R-squared:  0.05316,    Adjusted R-squared:  0.0005532 
## F-statistic: 1.011 on 1 and 18 DF,  p-value: 0.3281
attach(dummy)
## The following object is masked _by_ .GlobalEnv:
## 
##     x
dummy
##     x            y
## 1   1  2.203467873
## 2   2 -2.737781341
## 3   3 -0.090437019
## 4   4 -0.264884966
## 5   5  2.652108733
## 6   6 -1.664542682
## 7   7 -3.017632247
## 8   8 -2.053749314
## 9   9 -4.606739679
## 10 10  4.362302702
## 11 11  0.002241071
## 12 12  5.050750809
## 13 13  2.612871218
## 14 14  2.635504896
## 15 15 -1.843042309
## 16 16  3.577076525
## 17 17  0.266398377
## 18 18  0.788228759
## 19 19  4.719635857
## 20 20 -2.743355140
attach(dummy)
## The following object is masked _by_ .GlobalEnv:
## 
##     x
## The following objects are masked from dummy (pos = 3):
## 
##     x, y
lrf<-lowess(x,y)
lrf
## $x
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20
## 
## $y
##  [1]  0.4229113  0.1455484 -0.1295955 -0.3934835 -0.6234629 -0.7823147
##  [7] -0.8280390 -0.5284767 -0.1262324  0.3503389  0.8928536  1.4296473
## [13]  1.7860239  1.8866899  1.7370155  1.4476365  1.1248447  0.7973231
## [19]  0.4748006  0.1552904
plot(x,y)
lines(x,lrf$y)
lines(x,y)
abline(0,1,lty=3)
abline(coef(fm))
abline(coef(fm1), col="red")

detach()
plot(fitted(fm), resid(fm), xlab="Fitted values", ylab="Residuals", main="Residuals vs Fitted")

qqnorm(resid(fm), main="Residuals Rankit Plot")

rm(fm, fm1, lrf, x, dummy)
data
## function (..., list = character(), package = NULL, lib.loc = NULL, 
##     verbose = getOption("verbose"), envir = .GlobalEnv) 
## {
##     fileExt <- function(x) {
##         db <- grepl("\\.[^.]+\\.(gz|bz2|xz)$", x)
##         ans <- sub(".*\\.", "", x)
##         ans[db] <- sub(".*\\.([^.]+\\.)(gz|bz2|xz)$", "\\1\\2", 
##             x[db])
##         ans
##     }
##     names <- c(as.character(substitute(list(...))[-1L]), list)
##     if (!is.null(package)) {
##         if (!is.character(package)) 
##             stop("'package' must be a character string or NULL")
##         if (any(package %in% "base")) 
##             warning("datasets have been moved from package 'base' to package 'datasets'")
##         if (any(package %in% "stats")) 
##             warning("datasets have been moved from package 'stats' to package 'datasets'")
##         package[package %in% c("base", "stats")] <- "datasets"
##     }
##     paths <- find.package(package, lib.loc, verbose = verbose)
##     if (is.null(lib.loc)) 
##         paths <- c(path.package(package, TRUE), if (!length(package)) getwd(), 
##             paths)
##     paths <- unique(normalizePath(paths[file.exists(paths)]))
##     paths <- paths[dir.exists(file.path(paths, "data"))]
##     dataExts <- tools:::.make_file_exts("data")
##     if (length(names) == 0L) {
##         db <- matrix(character(), nrow = 0L, ncol = 4L)
##         for (path in paths) {
##             entries <- NULL
##             packageName <- if (file_test("-f", file.path(path, 
##                 "DESCRIPTION"))) 
##                 basename(path)
##             else "."
##             if (file_test("-f", INDEX <- file.path(path, "Meta", 
##                 "data.rds"))) {
##                 entries <- readRDS(INDEX)
##             }
##             else {
##                 dataDir <- file.path(path, "data")
##                 entries <- tools::list_files_with_type(dataDir, 
##                   "data")
##                 if (length(entries)) {
##                   entries <- unique(tools::file_path_sans_ext(basename(entries)))
##                   entries <- cbind(entries, "")
##                 }
##             }
##             if (NROW(entries)) {
##                 if (is.matrix(entries) && ncol(entries) == 2L) 
##                   db <- rbind(db, cbind(packageName, dirname(path), 
##                     entries))
##                 else warning(gettextf("data index for package %s is invalid and will be ignored", 
##                   sQuote(packageName)), domain = NA, call. = FALSE)
##             }
##         }
##         colnames(db) <- c("Package", "LibPath", "Item", "Title")
##         footer <- if (missing(package)) 
##             paste0("Use ", sQuote(paste("data(package =", ".packages(all.available = TRUE))")), 
##                 "\n", "to list the data sets in all *available* packages.")
##         else NULL
##         y <- list(title = "Data sets", header = NULL, results = db, 
##             footer = footer)
##         class(y) <- "packageIQR"
##         return(y)
##     }
##     paths <- file.path(paths, "data")
##     for (name in names) {
##         found <- FALSE
##         for (p in paths) {
##             if (file_test("-f", file.path(p, "Rdata.rds"))) {
##                 rds <- readRDS(file.path(p, "Rdata.rds"))
##                 if (name %in% names(rds)) {
##                   found <- TRUE
##                   if (verbose) 
##                     message(sprintf("name=%s:\t found in Rdata.rds", 
##                       name), domain = NA)
##                   thispkg <- sub(".*/([^/]*)/data$", "\\1", p)
##                   thispkg <- sub("_.*$", "", thispkg)
##                   thispkg <- paste0("package:", thispkg)
##                   objs <- rds[[name]]
##                   lazyLoad(file.path(p, "Rdata"), envir = envir, 
##                     filter = function(x) x %in% objs)
##                   break
##                 }
##                 else if (verbose) 
##                   message(sprintf("name=%s:\t NOT found in names() of Rdata.rds, i.e.,\n\t%s\n", 
##                     name, paste(names(rds), collapse = ",")), 
##                     domain = NA)
##             }
##             if (file_test("-f", file.path(p, "Rdata.zip"))) {
##                 warning("zipped data found for package ", sQuote(basename(dirname(p))), 
##                   ".\nThat is defunct, so please re-install the package.", 
##                   domain = NA)
##                 if (file_test("-f", fp <- file.path(p, "filelist"))) 
##                   files <- file.path(p, scan(fp, what = "", quiet = TRUE))
##                 else {
##                   warning(gettextf("file 'filelist' is missing for directory %s", 
##                     sQuote(p)), domain = NA)
##                   next
##                 }
##             }
##             else {
##                 files <- list.files(p, full.names = TRUE)
##             }
##             files <- files[grep(name, files, fixed = TRUE)]
##             if (length(files) > 1L) {
##                 o <- match(fileExt(files), dataExts, nomatch = 100L)
##                 paths0 <- dirname(files)
##                 paths0 <- factor(paths0, levels = unique(paths0))
##                 files <- files[order(paths0, o)]
##             }
##             if (length(files)) {
##                 for (file in files) {
##                   if (verbose) 
##                     message("name=", name, ":\t file= ...", .Platform$file.sep, 
##                       basename(file), "::\t", appendLF = FALSE, 
##                       domain = NA)
##                   ext <- fileExt(file)
##                   if (basename(file) != paste0(name, ".", ext)) 
##                     found <- FALSE
##                   else {
##                     found <- TRUE
##                     zfile <- file
##                     zipname <- file.path(dirname(file), "Rdata.zip")
##                     if (file.exists(zipname)) {
##                       Rdatadir <- tempfile("Rdata")
##                       dir.create(Rdatadir, showWarnings = FALSE)
##                       topic <- basename(file)
##                       rc <- .External(C_unzip, zipname, topic, 
##                         Rdatadir, FALSE, TRUE, FALSE, FALSE)
##                       if (rc == 0L) 
##                         zfile <- file.path(Rdatadir, topic)
##                     }
##                     if (zfile != file) 
##                       on.exit(unlink(zfile))
##                     switch(ext, R = , r = {
##                       library("utils")
##                       sys.source(zfile, chdir = TRUE, envir = envir)
##                     }, RData = , rdata = , rda = load(zfile, 
##                       envir = envir), TXT = , txt = , tab = , 
##                       tab.gz = , tab.bz2 = , tab.xz = , txt.gz = , 
##                       txt.bz2 = , txt.xz = assign(name, read.table(zfile, 
##                         header = TRUE, as.is = FALSE), envir = envir), 
##                       CSV = , csv = , csv.gz = , csv.bz2 = , 
##                       csv.xz = assign(name, read.table(zfile, 
##                         header = TRUE, sep = ";", as.is = FALSE), 
##                         envir = envir), found <- FALSE)
##                   }
##                   if (found) 
##                     break
##                 }
##                 if (verbose) 
##                   message(if (!found) 
##                     "*NOT* ", "found", domain = NA)
##             }
##             if (found) 
##                 break
##         }
##         if (!found) 
##             warning(gettextf("data set %s not found", sQuote(name)), 
##                 domain = NA)
##     }
##     invisible(names)
## }
## <bytecode: 0x32a1868>
## <environment: namespace:utils>
filepath <- system.file("data", "morley.tab" , package="datasets")
filepath
## [1] "/usr/lib/R/library/datasets/data/morley.tab"
file.show(filepath)
dim(filepath)
## NULL
mm<-read.table(filepath)
dim(mm)
## [1] 100   3
filepath
## [1] "/usr/lib/R/library/datasets/data/morley.tab"
mm$Expt
##   [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
##  [36] 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4
##  [71] 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
mm$Expt<-factor(mm$Expt)
mm$Expt
##   [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
##  [36] 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4
##  [71] 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
## Levels: 1 2 3 4 5
mm$Run <- factor (mm$Run)
mm$Run
##   [1] 1  2  3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19 20 1  2  3 
##  [24] 4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19 20 1  2  3  4  5  6 
##  [47] 7  8  9  10 11 12 13 14 15 16 17 18 19 20 1  2  3  4  5  6  7  8  9 
##  [70] 10 11 12 13 14 15 16 17 18 19 20 1  2  3  4  5  6  7  8  9  10 11 12
##  [93] 13 14 15 16 17 18 19 20
## Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
attach(mm)

plot(Expt, Speed, main="Speed of Light Data", xlab="Experiment No.")

fm<-aov(Speed~Run+Expt, data=mm)
plot(fm)

fm
## Call:
##    aov(formula = Speed ~ Run + Expt, data = mm)
## 
## Terms:
##                    Run   Expt Residuals
## Sum of Squares  113344  94514    410166
## Deg. of Freedom     19      4        76
## 
## Residual standard error: 73.46374
## Estimated effects may be unbalanced
summary(fm)
##             Df Sum Sq Mean Sq F value  Pr(>F)   
## Run         19 113344    5965   1.105 0.36321   
## Expt         4  94514   23629   4.378 0.00307 **
## Residuals   76 410166    5397                   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
fm0 <- update(fm, .~. -Run)
fm0
## Call:
##    aov(formula = Speed ~ Expt, data = mm)
## 
## Terms:
##                   Expt Residuals
## Sum of Squares   94514    523510
## Deg. of Freedom      4        95
## 
## Residual standard error: 74.23363
## Estimated effects may be unbalanced
anova(fm0, fm)
## Analysis of Variance Table
## 
## Model 1: Speed ~ Expt
## Model 2: Speed ~ Run + Expt
##   Res.Df    RSS Df Sum of Sq      F Pr(>F)
## 1     95 523510                           
## 2     76 410166 19    113344 1.1053 0.3632
detach()
rm(fm, fm0)
x<-seq(-pi, pi, len=50)
y<-x
?outer
f<-outer(x,y,function(x,y)cos(y)/(1+x^2))
f
##              [,1]        [,2]        [,3]        [,4]        [,5]
##  [1,] -0.09199967 -0.09124435 -0.08899081 -0.08527603 -0.08016103
##  [2,] -0.09920276 -0.09838830 -0.09595832 -0.09195270 -0.08643722
##  [3,] -0.10724999 -0.10636947 -0.10374236 -0.09941181 -0.09344892
##  [4,] -0.11627176 -0.11531717 -0.11246907 -0.10777424 -0.10130976
##  [5,] -0.12642295 -0.12538502 -0.12228827 -0.11718355 -0.11015468
##  [6,] -0.13788811 -0.13675606 -0.13337846 -0.12781080 -0.12014449
##  [7,] -0.15088778 -0.14964899 -0.14595297 -0.13986041 -0.13147134
##  [8,] -0.16568601 -0.16432573 -0.16026723 -0.15357714 -0.14436532
##  [9,] -0.18259945 -0.18110031 -0.17662751 -0.16925449 -0.15910231
## [10,] -0.20200763 -0.20034915 -0.19540094 -0.18724425 -0.17601302
## [11,] -0.22436448 -0.22252245 -0.21702661 -0.20796720 -0.19549297
## [12,] -0.25020994 -0.24815572 -0.24202679 -0.23192379 -0.21801260
## [13,] -0.28017962 -0.27787935 -0.27101630 -0.25970318 -0.24412574
## [14,] -0.31500833 -0.31242211 -0.30470594 -0.29198650 -0.27447265
## [15,] -0.35551960 -0.35260078 -0.34389228 -0.32953707 -0.30977087
## [16,] -0.40258707 -0.39928184 -0.38942041 -0.37316471 -0.35078165
## [17,] -0.45704468 -0.45329235 -0.44209697 -0.42364238 -0.39823158
## [18,] -0.51951019 -0.51524502 -0.50251954 -0.48154270 -0.45265895
## [19,] -0.59007662 -0.58523209 -0.57077808 -0.54695190 -0.51414479
## [20,] -0.66783078 -0.66234790 -0.64598928 -0.61902354 -0.58189345
## [21,] -0.75020983 -0.74405061 -0.72567411 -0.69538206 -0.65367185
## [22,] -0.83234804 -0.82551448 -0.80512599 -0.77151735 -0.72524042
## [23,] -0.90681105 -0.89936615 -0.87715367 -0.84053836 -0.79012143
## [24,] -0.96432424 -0.95640716 -0.93278589 -0.89384830 -0.84023375
## [25,] -0.99590621 -0.98772983 -0.96333496 -0.92312215 -0.86775170
## [26,] -0.99590621 -0.98772983 -0.96333496 -0.92312215 -0.86775170
## [27,] -0.96432424 -0.95640716 -0.93278589 -0.89384830 -0.84023375
## [28,] -0.90681105 -0.89936615 -0.87715367 -0.84053836 -0.79012143
## [29,] -0.83234804 -0.82551448 -0.80512599 -0.77151735 -0.72524042
## [30,] -0.75020983 -0.74405061 -0.72567411 -0.69538206 -0.65367185
## [31,] -0.66783078 -0.66234790 -0.64598928 -0.61902354 -0.58189345
## [32,] -0.59007662 -0.58523209 -0.57077808 -0.54695190 -0.51414479
## [33,] -0.51951019 -0.51524502 -0.50251954 -0.48154270 -0.45265895
## [34,] -0.45704468 -0.45329235 -0.44209697 -0.42364238 -0.39823158
## [35,] -0.40258707 -0.39928184 -0.38942041 -0.37316471 -0.35078165
## [36,] -0.35551960 -0.35260078 -0.34389228 -0.32953707 -0.30977087
## [37,] -0.31500833 -0.31242211 -0.30470594 -0.29198650 -0.27447265
## [38,] -0.28017962 -0.27787935 -0.27101630 -0.25970318 -0.24412574
## [39,] -0.25020994 -0.24815572 -0.24202679 -0.23192379 -0.21801260
## [40,] -0.22436448 -0.22252245 -0.21702661 -0.20796720 -0.19549297
## [41,] -0.20200763 -0.20034915 -0.19540094 -0.18724425 -0.17601302
## [42,] -0.18259945 -0.18110031 -0.17662751 -0.16925449 -0.15910231
## [43,] -0.16568601 -0.16432573 -0.16026723 -0.15357714 -0.14436532
## [44,] -0.15088778 -0.14964899 -0.14595297 -0.13986041 -0.13147134
## [45,] -0.13788811 -0.13675606 -0.13337846 -0.12781080 -0.12014449
## [46,] -0.12642295 -0.12538502 -0.12228827 -0.11718355 -0.11015468
## [47,] -0.11627176 -0.11531717 -0.11246907 -0.10777424 -0.10130976
## [48,] -0.10724999 -0.10636947 -0.10374236 -0.09941181 -0.09344892
## [49,] -0.09920276 -0.09838830 -0.09595832 -0.09195270 -0.08643722
## [50,] -0.09199967 -0.09124435 -0.08899081 -0.08527603 -0.08016103
##              [,6]        [,7]        [,8]        [,9]       [,10]
##  [1,] -0.07372979 -0.06608790 -0.05736085 -0.04769194 -0.03723993
##  [2,] -0.07950244 -0.07126224 -0.06185191 -0.05142597 -0.04015562
##  [3,] -0.08595160 -0.07704296 -0.06686927 -0.05559760 -0.04341301
##  [4,] -0.09318177 -0.08352374 -0.07249426 -0.06027442 -0.04706487
##  [5,] -0.10131707 -0.09081584 -0.07882342 -0.06553672 -0.05117390
##  [6,] -0.11050541 -0.09905184 -0.08597183 -0.07148017 -0.05581481
##  [7,] -0.12092352 -0.10839014 -0.09407699 -0.07821910 -0.06107686
##  [8,] -0.13278303 -0.11902044 -0.10330354 -0.08589040 -0.06706694
##  [9,] -0.14633769 -0.13117020 -0.11384889 -0.09465820 -0.07391322
## [10,] -0.16189166 -0.14511205 -0.12594970 -0.10471925 -0.08176932
## [11,] -0.17980875 -0.16117208 -0.13988897 -0.11630888 -0.09081901
## [12,] -0.20052166 -0.17973815 -0.15600335 -0.12970697 -0.10128082
## [13,] -0.22453976 -0.20126685 -0.17468913 -0.14524303 -0.11341204
## [14,] -0.25245196 -0.22628603 -0.19640448 -0.16329798 -0.12751012
## [15,] -0.28491825 -0.25538727 -0.22166284 -0.18429872 -0.14390841
## [16,] -0.32263877 -0.28919816 -0.25100894 -0.20869815 -0.16296054
## [17,] -0.36628184 -0.32831775 -0.28496270 -0.23692857 -0.18500408
## [18,] -0.41634255 -0.37318981 -0.32390931 -0.26931022 -0.21028907
## [19,] -0.47289544 -0.42388115 -0.36790675 -0.30589133 -0.23885319
## [20,] -0.53520868 -0.47973581 -0.41638568 -0.34619851 -0.27032678
## [21,] -0.60122837 -0.53891274 -0.46774818 -0.38890320 -0.30367244
## [22,] -0.66705506 -0.59791668 -0.51896052 -0.43148304 -0.33692062
## [23,] -0.72673073 -0.65140713 -0.56538744 -0.47008411 -0.36706201
## [24,] -0.77282259 -0.69272169 -0.60124633 -0.49989852 -0.39034239
## [25,] -0.79813280 -0.71540858 -0.62093736 -0.51627038 -0.40312624
## [26,] -0.79813280 -0.71540858 -0.62093736 -0.51627038 -0.40312624
## [27,] -0.77282259 -0.69272169 -0.60124633 -0.49989852 -0.39034239
## [28,] -0.72673073 -0.65140713 -0.56538744 -0.47008411 -0.36706201
## [29,] -0.66705506 -0.59791668 -0.51896052 -0.43148304 -0.33692062
## [30,] -0.60122837 -0.53891274 -0.46774818 -0.38890320 -0.30367244
## [31,] -0.53520868 -0.47973581 -0.41638568 -0.34619851 -0.27032678
## [32,] -0.47289544 -0.42388115 -0.36790675 -0.30589133 -0.23885319
## [33,] -0.41634255 -0.37318981 -0.32390931 -0.26931022 -0.21028907
## [34,] -0.36628184 -0.32831775 -0.28496270 -0.23692857 -0.18500408
## [35,] -0.32263877 -0.28919816 -0.25100894 -0.20869815 -0.16296054
## [36,] -0.28491825 -0.25538727 -0.22166284 -0.18429872 -0.14390841
## [37,] -0.25245196 -0.22628603 -0.19640448 -0.16329798 -0.12751012
## [38,] -0.22453976 -0.20126685 -0.17468913 -0.14524303 -0.11341204
## [39,] -0.20052166 -0.17973815 -0.15600335 -0.12970697 -0.10128082
## [40,] -0.17980875 -0.16117208 -0.13988897 -0.11630888 -0.09081901
## [41,] -0.16189166 -0.14511205 -0.12594970 -0.10471925 -0.08176932
## [42,] -0.14633769 -0.13117020 -0.11384889 -0.09465820 -0.07391322
## [43,] -0.13278303 -0.11902044 -0.10330354 -0.08589040 -0.06706694
## [44,] -0.12092352 -0.10839014 -0.09407699 -0.07821910 -0.06107686
## [45,] -0.11050541 -0.09905184 -0.08597183 -0.07148017 -0.05581481
## [46,] -0.10131707 -0.09081584 -0.07882342 -0.06553672 -0.05117390
## [47,] -0.09318177 -0.08352374 -0.07249426 -0.06027442 -0.04706487
## [48,] -0.08595160 -0.07704296 -0.06686927 -0.05559760 -0.04341301
## [49,] -0.07950244 -0.07126224 -0.06185191 -0.05142597 -0.04015562
## [50,] -0.07372979 -0.06608790 -0.05736085 -0.04769194 -0.03723993
##             [,11]       [,12]        [,13]       [,14]      [,15]
##  [1,] -0.02617644 -0.01468314 -0.002948735 0.008834087 0.02047185
##  [2,] -0.02822592 -0.01583275 -0.003179605 0.009525749 0.02207469
##  [3,] -0.03051558 -0.01711709 -0.003437531 0.010298468 0.02386537
##  [4,] -0.03308252 -0.01855696 -0.003726693 0.011164766 0.02587290
##  [5,] -0.03597082 -0.02017709 -0.004052055 0.012139514 0.02813175
##  [6,] -0.03923297 -0.02200693 -0.004419532 0.013240434 0.03068299
##  [7,] -0.04293173 -0.02408167 -0.004836191 0.014488701 0.03357569
##  [8,] -0.04714224 -0.02644347 -0.005310498 0.015909672 0.03686861
##  [9,] -0.05195458 -0.02914285 -0.005852600 0.017533752 0.04063220
## [10,] -0.05747674 -0.03224040 -0.006474663 0.019397384 0.04495093
## [11,] -0.06383788 -0.03580855 -0.007191236 0.021544156 0.04992579
## [12,] -0.07119163 -0.03993348 -0.008019623 0.024025916 0.05567695
## [13,] -0.07971883 -0.04471664 -0.008980199 0.026903695 0.06234583
## [14,] -0.08962856 -0.05027530 -0.010096514 0.030248053 0.07009595
## [15,] -0.10115513 -0.05674089 -0.011394964 0.034138067 0.07911055
## [16,] -0.11454713 -0.06425285 -0.012903551 0.038657629 0.08958405
## [17,] -0.13004182 -0.07294428 -0.014649003 0.043886814 0.10170201
## [18,] -0.14781498 -0.08291377 -0.016651121 0.049884941 0.11560189
## [19,] -0.16789308 -0.09417617 -0.018912886 0.056660942 0.13130440
## [20,] -0.19001628 -0.10658572 -0.021405030 0.064127132 0.14860633
## [21,] -0.21345539 -0.11973341 -0.024045408 0.072037417 0.16693739
## [22,] -0.23682598 -0.13284266 -0.026678068 0.079924578 0.18521486
## [23,] -0.25801276 -0.14472695 -0.029064725 0.087074741 0.20178444
## [24,] -0.27437685 -0.15390605 -0.030908113 0.092597332 0.21458233
## [25,] -0.28336279 -0.15894653 -0.031920365 0.095629927 0.22160998
## [26,] -0.28336279 -0.15894653 -0.031920365 0.095629927 0.22160998
## [27,] -0.27437685 -0.15390605 -0.030908113 0.092597332 0.21458233
## [28,] -0.25801276 -0.14472695 -0.029064725 0.087074741 0.20178444
## [29,] -0.23682598 -0.13284266 -0.026678068 0.079924578 0.18521486
## [30,] -0.21345539 -0.11973341 -0.024045408 0.072037417 0.16693739
## [31,] -0.19001628 -0.10658572 -0.021405030 0.064127132 0.14860633
## [32,] -0.16789308 -0.09417617 -0.018912886 0.056660942 0.13130440
## [33,] -0.14781498 -0.08291377 -0.016651121 0.049884941 0.11560189
## [34,] -0.13004182 -0.07294428 -0.014649003 0.043886814 0.10170201
## [35,] -0.11454713 -0.06425285 -0.012903551 0.038657629 0.08958405
## [36,] -0.10115513 -0.05674089 -0.011394964 0.034138067 0.07911055
## [37,] -0.08962856 -0.05027530 -0.010096514 0.030248053 0.07009595
## [38,] -0.07971883 -0.04471664 -0.008980199 0.026903695 0.06234583
## [39,] -0.07119163 -0.03993348 -0.008019623 0.024025916 0.05567695
## [40,] -0.06383788 -0.03580855 -0.007191236 0.021544156 0.04992579
## [41,] -0.05747674 -0.03224040 -0.006474663 0.019397384 0.04495093
## [42,] -0.05195458 -0.02914285 -0.005852600 0.017533752 0.04063220
## [43,] -0.04714224 -0.02644347 -0.005310498 0.015909672 0.03686861
## [44,] -0.04293173 -0.02408167 -0.004836191 0.014488701 0.03357569
## [45,] -0.03923297 -0.02200693 -0.004419532 0.013240434 0.03068299
## [46,] -0.03597082 -0.02017709 -0.004052055 0.012139514 0.02813175
## [47,] -0.03308252 -0.01855696 -0.003726693 0.011164766 0.02587290
## [48,] -0.03051558 -0.01711709 -0.003437531 0.010298468 0.02386537
## [49,] -0.02822592 -0.01583275 -0.003179605 0.009525749 0.02207469
## [50,] -0.02617644 -0.01468314 -0.002948735 0.008834087 0.02047185
##            [,16]      [,17]      [,18]      [,19]      [,20]      [,21]
##  [1,] 0.03177347 0.04255337 0.05263454 0.06185146 0.07005278 0.07710383
##  [2,] 0.03426117 0.04588507 0.05675555 0.06669410 0.07553754 0.08314065
##  [3,] 0.03704040 0.04960723 0.06135950 0.07210426 0.08166507 0.08988494
##  [4,] 0.04015620 0.05378014 0.06652101 0.07816961 0.08853466 0.09744598
##  [5,] 0.04366207 0.05847545 0.07232868 0.08499426 0.09626424 0.10595357
##  [6,] 0.04762174 0.06377853 0.07888809 0.09270230 0.10499435 0.11556239
##  [7,] 0.05211137 0.06979137 0.08632541 0.10144199 0.11489289 0.12645725
##  [8,] 0.05722216 0.07663613 0.09479173 0.11139085 0.12616095 0.13885948
##  [9,] 0.06306347 0.08445924 0.10446819 0.12276177 0.13903961 0.15303443
## [10,] 0.06976638 0.09343626 0.11557193 0.13580991 0.15381789 0.16930019
## [11,] 0.07748765 0.10377716 0.12836266 0.15084044 0.17084143 0.18803720
## [12,] 0.08641377 0.11573168 0.14314928 0.16821637 0.19052135 0.20969798
## [13,] 0.09676425 0.12959380 0.16029543 0.18836501 0.21334164 0.23481520
## [14,] 0.10879287 0.14570341 0.18022151 0.21178038 0.23986182 0.26400473
## [15,] 0.12278404 0.16444143 0.20339868 0.23901614 0.27070896 0.29795674
## [16,] 0.13903951 0.18621194 0.23032677 0.27065965 0.30654830 0.33740344
## [17,] 0.15784726 0.21140067 0.26148288 0.30727155 0.34801483 0.38304371
## [18,] 0.17942067 0.24029336 0.29722044 0.34926717 0.39557894 0.43539531
## [19,] 0.20379184 0.27293303 0.33759266 0.39670903 0.44931145 0.49453619
## [20,] 0.23064541 0.30889731 0.38207712 0.44898323 0.50851705 0.55970103
## [21,] 0.25909626 0.34700077 0.42920754 0.50436673 0.57124424 0.62874193
## [22,] 0.28746393 0.38499284 0.47620018 0.55958833 0.63378805 0.69758099
## [23,] 0.31318085 0.41943483 0.51880171 0.60964988 0.69048761 0.75998756
## [24,] 0.33304390 0.44603689 0.55170597 0.64831605 0.73428080 0.80818868
## [25,] 0.34395120 0.46064475 0.56977453 0.66954863 0.75832876 0.83465714
## [26,] 0.34395120 0.46064475 0.56977453 0.66954863 0.75832876 0.83465714
## [27,] 0.33304390 0.44603689 0.55170597 0.64831605 0.73428080 0.80818868
## [28,] 0.31318085 0.41943483 0.51880171 0.60964988 0.69048761 0.75998756
## [29,] 0.28746393 0.38499284 0.47620018 0.55958833 0.63378805 0.69758099
## [30,] 0.25909626 0.34700077 0.42920754 0.50436673 0.57124424 0.62874193
## [31,] 0.23064541 0.30889731 0.38207712 0.44898323 0.50851705 0.55970103
## [32,] 0.20379184 0.27293303 0.33759266 0.39670903 0.44931145 0.49453619
## [33,] 0.17942067 0.24029336 0.29722044 0.34926717 0.39557894 0.43539531
## [34,] 0.15784726 0.21140067 0.26148288 0.30727155 0.34801483 0.38304371
## [35,] 0.13903951 0.18621194 0.23032677 0.27065965 0.30654830 0.33740344
## [36,] 0.12278404 0.16444143 0.20339868 0.23901614 0.27070896 0.29795674
## [37,] 0.10879287 0.14570341 0.18022151 0.21178038 0.23986182 0.26400473
## [38,] 0.09676425 0.12959380 0.16029543 0.18836501 0.21334164 0.23481520
## [39,] 0.08641377 0.11573168 0.14314928 0.16821637 0.19052135 0.20969798
## [40,] 0.07748765 0.10377716 0.12836266 0.15084044 0.17084143 0.18803720
## [41,] 0.06976638 0.09343626 0.11557193 0.13580991 0.15381789 0.16930019
## [42,] 0.06306347 0.08445924 0.10446819 0.12276177 0.13903961 0.15303443
## [43,] 0.05722216 0.07663613 0.09479173 0.11139085 0.12616095 0.13885948
## [44,] 0.05211137 0.06979137 0.08632541 0.10144199 0.11489289 0.12645725
## [45,] 0.04762174 0.06377853 0.07888809 0.09270230 0.10499435 0.11556239
## [46,] 0.04366207 0.05847545 0.07232868 0.08499426 0.09626424 0.10595357
## [47,] 0.04015620 0.05378014 0.06652101 0.07816961 0.08853466 0.09744598
## [48,] 0.03704040 0.04960723 0.06135950 0.07210426 0.08166507 0.08988494
## [49,] 0.03426117 0.04588507 0.05675555 0.06669410 0.07553754 0.08314065
## [50,] 0.03177347 0.04255337 0.05263454 0.06185146 0.07005278 0.07710383
##            [,22]      [,23]      [,24]      [,25]      [,26]      [,27]
##  [1,] 0.08288884 0.08731281 0.09030312 0.09181065 0.09181065 0.09030312
##  [2,] 0.08937860 0.09414895 0.09737338 0.09899894 0.09899894 0.09737338
##  [3,] 0.09662890 0.10178622 0.10527221 0.10702963 0.10702963 0.10527221
##  [4,] 0.10475723 0.11034838 0.11412761 0.11603286 0.11603286 0.11412761
##  [5,] 0.11390314 0.11998243 0.12409160 0.12616320 0.12616320 0.12409160
##  [6,] 0.12423290 0.13086351 0.13534534 0.13760481 0.13760481 0.13534534
##  [7,] 0.13594519 0.14320091 0.14810528 0.15057776 0.15057776 0.14810528
##  [8,] 0.14927794 0.15724526 0.16263062 0.16534559 0.16534559 0.16263062
##  [9,] 0.16451642 0.17329706 0.17923216 0.18222428 0.18222428 0.17923216
## [10,] 0.18200258 0.19171650 0.19828244 0.20159258 0.20159258 0.19828244
## [11,] 0.20214541 0.21293440 0.22022701 0.22390350 0.22390350 0.22022701
## [12,] 0.22543137 0.23746318 0.24559586 0.24969586 0.24969586 0.24559586
## [13,] 0.25243311 0.26590608 0.27501287 0.27960396 0.27960396 0.27501287
## [14,] 0.28381270 0.29896046 0.30919931 0.31436111 0.31436111 0.30919931
## [15,] 0.32031209 0.33740791 0.34896351 0.35478914 0.35478914 0.34896351
## [16,] 0.36271842 0.38207758 0.39516303 0.40175992 0.40175992 0.39516303
## [17,] 0.41178303 0.43376088 0.44861639 0.45610564 0.45610564 0.44861639
## [18,] 0.46806251 0.49304414 0.50992999 0.51844281 0.51844281 0.50992999
## [19,] 0.53164066 0.56001560 0.57919511 0.58886424 0.58886424 0.57919511
## [20,] 0.60169474 0.63380864 0.65551542 0.66645865 0.66645865 0.65551542
## [21,] 0.67591570 0.71199095 0.73637532 0.74866844 0.74866844 0.73637532
## [22,] 0.74991967 0.78994469 0.81699884 0.83063789 0.83063789 0.81699884
## [23,] 0.81700853 0.86061424 0.89008869 0.90494791 0.90494791 0.89008869
## [24,] 0.86882612 0.91519747 0.94654129 0.96234294 0.96234294 0.94654129
## [25,] 0.89728049 0.94517051 0.97754086 0.99386001 0.99386001 0.97754086
## [26,] 0.89728049 0.94517051 0.97754086 0.99386001 0.99386001 0.97754086
## [27,] 0.86882612 0.91519747 0.94654129 0.96234294 0.96234294 0.94654129
## [28,] 0.81700853 0.86061424 0.89008869 0.90494791 0.90494791 0.89008869
## [29,] 0.74991967 0.78994469 0.81699884 0.83063789 0.83063789 0.81699884
## [30,] 0.67591570 0.71199095 0.73637532 0.74866844 0.74866844 0.73637532
## [31,] 0.60169474 0.63380864 0.65551542 0.66645865 0.66645865 0.65551542
## [32,] 0.53164066 0.56001560 0.57919511 0.58886424 0.58886424 0.57919511
## [33,] 0.46806251 0.49304414 0.50992999 0.51844281 0.51844281 0.50992999
## [34,] 0.41178303 0.43376088 0.44861639 0.45610564 0.45610564 0.44861639
## [35,] 0.36271842 0.38207758 0.39516303 0.40175992 0.40175992 0.39516303
## [36,] 0.32031209 0.33740791 0.34896351 0.35478914 0.35478914 0.34896351
## [37,] 0.28381270 0.29896046 0.30919931 0.31436111 0.31436111 0.30919931
## [38,] 0.25243311 0.26590608 0.27501287 0.27960396 0.27960396 0.27501287
## [39,] 0.22543137 0.23746318 0.24559586 0.24969586 0.24969586 0.24559586
## [40,] 0.20214541 0.21293440 0.22022701 0.22390350 0.22390350 0.22022701
## [41,] 0.18200258 0.19171650 0.19828244 0.20159258 0.20159258 0.19828244
## [42,] 0.16451642 0.17329706 0.17923216 0.18222428 0.18222428 0.17923216
## [43,] 0.14927794 0.15724526 0.16263062 0.16534559 0.16534559 0.16263062
## [44,] 0.13594519 0.14320091 0.14810528 0.15057776 0.15057776 0.14810528
## [45,] 0.12423290 0.13086351 0.13534534 0.13760481 0.13760481 0.13534534
## [46,] 0.11390314 0.11998243 0.12409160 0.12616320 0.12616320 0.12409160
## [47,] 0.10475723 0.11034838 0.11412761 0.11603286 0.11603286 0.11412761
## [48,] 0.09662890 0.10178622 0.10527221 0.10702963 0.10702963 0.10527221
## [49,] 0.08937860 0.09414895 0.09737338 0.09899894 0.09899894 0.09737338
## [50,] 0.08288884 0.08731281 0.09030312 0.09181065 0.09181065 0.09030312
##            [,28]      [,29]      [,30]      [,31]      [,32]      [,33]
##  [1,] 0.08731281 0.08288884 0.07710383 0.07005278 0.06185146 0.05263454
##  [2,] 0.09414895 0.08937860 0.08314065 0.07553754 0.06669410 0.05675555
##  [3,] 0.10178622 0.09662890 0.08988494 0.08166507 0.07210426 0.06135950
##  [4,] 0.11034838 0.10475723 0.09744598 0.08853466 0.07816961 0.06652101
##  [5,] 0.11998243 0.11390314 0.10595357 0.09626424 0.08499426 0.07232868
##  [6,] 0.13086351 0.12423290 0.11556239 0.10499435 0.09270230 0.07888809
##  [7,] 0.14320091 0.13594519 0.12645725 0.11489289 0.10144199 0.08632541
##  [8,] 0.15724526 0.14927794 0.13885948 0.12616095 0.11139085 0.09479173
##  [9,] 0.17329706 0.16451642 0.15303443 0.13903961 0.12276177 0.10446819
## [10,] 0.19171650 0.18200258 0.16930019 0.15381789 0.13580991 0.11557193
## [11,] 0.21293440 0.20214541 0.18803720 0.17084143 0.15084044 0.12836266
## [12,] 0.23746318 0.22543137 0.20969798 0.19052135 0.16821637 0.14314928
## [13,] 0.26590608 0.25243311 0.23481520 0.21334164 0.18836501 0.16029543
## [14,] 0.29896046 0.28381270 0.26400473 0.23986182 0.21178038 0.18022151
## [15,] 0.33740791 0.32031209 0.29795674 0.27070896 0.23901614 0.20339868
## [16,] 0.38207758 0.36271842 0.33740344 0.30654830 0.27065965 0.23032677
## [17,] 0.43376088 0.41178303 0.38304371 0.34801483 0.30727155 0.26148288
## [18,] 0.49304414 0.46806251 0.43539531 0.39557894 0.34926717 0.29722044
## [19,] 0.56001560 0.53164066 0.49453619 0.44931145 0.39670903 0.33759266
## [20,] 0.63380864 0.60169474 0.55970103 0.50851705 0.44898323 0.38207712
## [21,] 0.71199095 0.67591570 0.62874193 0.57124424 0.50436673 0.42920754
## [22,] 0.78994469 0.74991967 0.69758099 0.63378805 0.55958833 0.47620018
## [23,] 0.86061424 0.81700853 0.75998756 0.69048761 0.60964988 0.51880171
## [24,] 0.91519747 0.86882612 0.80818868 0.73428080 0.64831605 0.55170597
## [25,] 0.94517051 0.89728049 0.83465714 0.75832876 0.66954863 0.56977453
## [26,] 0.94517051 0.89728049 0.83465714 0.75832876 0.66954863 0.56977453
## [27,] 0.91519747 0.86882612 0.80818868 0.73428080 0.64831605 0.55170597
## [28,] 0.86061424 0.81700853 0.75998756 0.69048761 0.60964988 0.51880171
## [29,] 0.78994469 0.74991967 0.69758099 0.63378805 0.55958833 0.47620018
## [30,] 0.71199095 0.67591570 0.62874193 0.57124424 0.50436673 0.42920754
## [31,] 0.63380864 0.60169474 0.55970103 0.50851705 0.44898323 0.38207712
## [32,] 0.56001560 0.53164066 0.49453619 0.44931145 0.39670903 0.33759266
## [33,] 0.49304414 0.46806251 0.43539531 0.39557894 0.34926717 0.29722044
## [34,] 0.43376088 0.41178303 0.38304371 0.34801483 0.30727155 0.26148288
## [35,] 0.38207758 0.36271842 0.33740344 0.30654830 0.27065965 0.23032677
## [36,] 0.33740791 0.32031209 0.29795674 0.27070896 0.23901614 0.20339868
## [37,] 0.29896046 0.28381270 0.26400473 0.23986182 0.21178038 0.18022151
## [38,] 0.26590608 0.25243311 0.23481520 0.21334164 0.18836501 0.16029543
## [39,] 0.23746318 0.22543137 0.20969798 0.19052135 0.16821637 0.14314928
## [40,] 0.21293440 0.20214541 0.18803720 0.17084143 0.15084044 0.12836266
## [41,] 0.19171650 0.18200258 0.16930019 0.15381789 0.13580991 0.11557193
## [42,] 0.17329706 0.16451642 0.15303443 0.13903961 0.12276177 0.10446819
## [43,] 0.15724526 0.14927794 0.13885948 0.12616095 0.11139085 0.09479173
## [44,] 0.14320091 0.13594519 0.12645725 0.11489289 0.10144199 0.08632541
## [45,] 0.13086351 0.12423290 0.11556239 0.10499435 0.09270230 0.07888809
## [46,] 0.11998243 0.11390314 0.10595357 0.09626424 0.08499426 0.07232868
## [47,] 0.11034838 0.10475723 0.09744598 0.08853466 0.07816961 0.06652101
## [48,] 0.10178622 0.09662890 0.08988494 0.08166507 0.07210426 0.06135950
## [49,] 0.09414895 0.08937860 0.08314065 0.07553754 0.06669410 0.05675555
## [50,] 0.08731281 0.08288884 0.07710383 0.07005278 0.06185146 0.05263454
##            [,34]      [,35]      [,36]       [,37]        [,38]
##  [1,] 0.04255337 0.03177347 0.02047185 0.008834087 -0.002948735
##  [2,] 0.04588507 0.03426117 0.02207469 0.009525749 -0.003179605
##  [3,] 0.04960723 0.03704040 0.02386537 0.010298468 -0.003437531
##  [4,] 0.05378014 0.04015620 0.02587290 0.011164766 -0.003726693
##  [5,] 0.05847545 0.04366207 0.02813175 0.012139514 -0.004052055
##  [6,] 0.06377853 0.04762174 0.03068299 0.013240434 -0.004419532
##  [7,] 0.06979137 0.05211137 0.03357569 0.014488701 -0.004836191
##  [8,] 0.07663613 0.05722216 0.03686861 0.015909672 -0.005310498
##  [9,] 0.08445924 0.06306347 0.04063220 0.017533752 -0.005852600
## [10,] 0.09343626 0.06976638 0.04495093 0.019397384 -0.006474663
## [11,] 0.10377716 0.07748765 0.04992579 0.021544156 -0.007191236
## [12,] 0.11573168 0.08641377 0.05567695 0.024025916 -0.008019623
## [13,] 0.12959380 0.09676425 0.06234583 0.026903695 -0.008980199
## [14,] 0.14570341 0.10879287 0.07009595 0.030248053 -0.010096514
## [15,] 0.16444143 0.12278404 0.07911055 0.034138067 -0.011394964
## [16,] 0.18621194 0.13903951 0.08958405 0.038657629 -0.012903551
## [17,] 0.21140067 0.15784726 0.10170201 0.043886814 -0.014649003
## [18,] 0.24029336 0.17942067 0.11560189 0.049884941 -0.016651121
## [19,] 0.27293303 0.20379184 0.13130440 0.056660942 -0.018912886
## [20,] 0.30889731 0.23064541 0.14860633 0.064127132 -0.021405030
## [21,] 0.34700077 0.25909626 0.16693739 0.072037417 -0.024045408
## [22,] 0.38499284 0.28746393 0.18521486 0.079924578 -0.026678068
## [23,] 0.41943483 0.31318085 0.20178444 0.087074741 -0.029064725
## [24,] 0.44603689 0.33304390 0.21458233 0.092597332 -0.030908113
## [25,] 0.46064475 0.34395120 0.22160998 0.095629927 -0.031920365
## [26,] 0.46064475 0.34395120 0.22160998 0.095629927 -0.031920365
## [27,] 0.44603689 0.33304390 0.21458233 0.092597332 -0.030908113
## [28,] 0.41943483 0.31318085 0.20178444 0.087074741 -0.029064725
## [29,] 0.38499284 0.28746393 0.18521486 0.079924578 -0.026678068
## [30,] 0.34700077 0.25909626 0.16693739 0.072037417 -0.024045408
## [31,] 0.30889731 0.23064541 0.14860633 0.064127132 -0.021405030
## [32,] 0.27293303 0.20379184 0.13130440 0.056660942 -0.018912886
## [33,] 0.24029336 0.17942067 0.11560189 0.049884941 -0.016651121
## [34,] 0.21140067 0.15784726 0.10170201 0.043886814 -0.014649003
## [35,] 0.18621194 0.13903951 0.08958405 0.038657629 -0.012903551
## [36,] 0.16444143 0.12278404 0.07911055 0.034138067 -0.011394964
## [37,] 0.14570341 0.10879287 0.07009595 0.030248053 -0.010096514
## [38,] 0.12959380 0.09676425 0.06234583 0.026903695 -0.008980199
## [39,] 0.11573168 0.08641377 0.05567695 0.024025916 -0.008019623
## [40,] 0.10377716 0.07748765 0.04992579 0.021544156 -0.007191236
## [41,] 0.09343626 0.06976638 0.04495093 0.019397384 -0.006474663
## [42,] 0.08445924 0.06306347 0.04063220 0.017533752 -0.005852600
## [43,] 0.07663613 0.05722216 0.03686861 0.015909672 -0.005310498
## [44,] 0.06979137 0.05211137 0.03357569 0.014488701 -0.004836191
## [45,] 0.06377853 0.04762174 0.03068299 0.013240434 -0.004419532
## [46,] 0.05847545 0.04366207 0.02813175 0.012139514 -0.004052055
## [47,] 0.05378014 0.04015620 0.02587290 0.011164766 -0.003726693
## [48,] 0.04960723 0.03704040 0.02386537 0.010298468 -0.003437531
## [49,] 0.04588507 0.03426117 0.02207469 0.009525749 -0.003179605
## [50,] 0.04255337 0.03177347 0.02047185 0.008834087 -0.002948735
##             [,39]       [,40]       [,41]       [,42]       [,43]
##  [1,] -0.01468314 -0.02617644 -0.03723993 -0.04769194 -0.05736085
##  [2,] -0.01583275 -0.02822592 -0.04015562 -0.05142597 -0.06185191
##  [3,] -0.01711709 -0.03051558 -0.04341301 -0.05559760 -0.06686927
##  [4,] -0.01855696 -0.03308252 -0.04706487 -0.06027442 -0.07249426
##  [5,] -0.02017709 -0.03597082 -0.05117390 -0.06553672 -0.07882342
##  [6,] -0.02200693 -0.03923297 -0.05581481 -0.07148017 -0.08597183
##  [7,] -0.02408167 -0.04293173 -0.06107686 -0.07821910 -0.09407699
##  [8,] -0.02644347 -0.04714224 -0.06706694 -0.08589040 -0.10330354
##  [9,] -0.02914285 -0.05195458 -0.07391322 -0.09465820 -0.11384889
## [10,] -0.03224040 -0.05747674 -0.08176932 -0.10471925 -0.12594970
## [11,] -0.03580855 -0.06383788 -0.09081901 -0.11630888 -0.13988897
## [12,] -0.03993348 -0.07119163 -0.10128082 -0.12970697 -0.15600335
## [13,] -0.04471664 -0.07971883 -0.11341204 -0.14524303 -0.17468913
## [14,] -0.05027530 -0.08962856 -0.12751012 -0.16329798 -0.19640448
## [15,] -0.05674089 -0.10115513 -0.14390841 -0.18429872 -0.22166284
## [16,] -0.06425285 -0.11454713 -0.16296054 -0.20869815 -0.25100894
## [17,] -0.07294428 -0.13004182 -0.18500408 -0.23692857 -0.28496270
## [18,] -0.08291377 -0.14781498 -0.21028907 -0.26931022 -0.32390931
## [19,] -0.09417617 -0.16789308 -0.23885319 -0.30589133 -0.36790675
## [20,] -0.10658572 -0.19001628 -0.27032678 -0.34619851 -0.41638568
## [21,] -0.11973341 -0.21345539 -0.30367244 -0.38890320 -0.46774818
## [22,] -0.13284266 -0.23682598 -0.33692062 -0.43148304 -0.51896052
## [23,] -0.14472695 -0.25801276 -0.36706201 -0.47008411 -0.56538744
## [24,] -0.15390605 -0.27437685 -0.39034239 -0.49989852 -0.60124633
## [25,] -0.15894653 -0.28336279 -0.40312624 -0.51627038 -0.62093736
## [26,] -0.15894653 -0.28336279 -0.40312624 -0.51627038 -0.62093736
## [27,] -0.15390605 -0.27437685 -0.39034239 -0.49989852 -0.60124633
## [28,] -0.14472695 -0.25801276 -0.36706201 -0.47008411 -0.56538744
## [29,] -0.13284266 -0.23682598 -0.33692062 -0.43148304 -0.51896052
## [30,] -0.11973341 -0.21345539 -0.30367244 -0.38890320 -0.46774818
## [31,] -0.10658572 -0.19001628 -0.27032678 -0.34619851 -0.41638568
## [32,] -0.09417617 -0.16789308 -0.23885319 -0.30589133 -0.36790675
## [33,] -0.08291377 -0.14781498 -0.21028907 -0.26931022 -0.32390931
## [34,] -0.07294428 -0.13004182 -0.18500408 -0.23692857 -0.28496270
## [35,] -0.06425285 -0.11454713 -0.16296054 -0.20869815 -0.25100894
## [36,] -0.05674089 -0.10115513 -0.14390841 -0.18429872 -0.22166284
## [37,] -0.05027530 -0.08962856 -0.12751012 -0.16329798 -0.19640448
## [38,] -0.04471664 -0.07971883 -0.11341204 -0.14524303 -0.17468913
## [39,] -0.03993348 -0.07119163 -0.10128082 -0.12970697 -0.15600335
## [40,] -0.03580855 -0.06383788 -0.09081901 -0.11630888 -0.13988897
## [41,] -0.03224040 -0.05747674 -0.08176932 -0.10471925 -0.12594970
## [42,] -0.02914285 -0.05195458 -0.07391322 -0.09465820 -0.11384889
## [43,] -0.02644347 -0.04714224 -0.06706694 -0.08589040 -0.10330354
## [44,] -0.02408167 -0.04293173 -0.06107686 -0.07821910 -0.09407699
## [45,] -0.02200693 -0.03923297 -0.05581481 -0.07148017 -0.08597183
## [46,] -0.02017709 -0.03597082 -0.05117390 -0.06553672 -0.07882342
## [47,] -0.01855696 -0.03308252 -0.04706487 -0.06027442 -0.07249426
## [48,] -0.01711709 -0.03051558 -0.04341301 -0.05559760 -0.06686927
## [49,] -0.01583275 -0.02822592 -0.04015562 -0.05142597 -0.06185191
## [50,] -0.01468314 -0.02617644 -0.03723993 -0.04769194 -0.05736085
##             [,44]       [,45]       [,46]       [,47]       [,48]
##  [1,] -0.06608790 -0.07372979 -0.08016103 -0.08527603 -0.08899081
##  [2,] -0.07126224 -0.07950244 -0.08643722 -0.09195270 -0.09595832
##  [3,] -0.07704296 -0.08595160 -0.09344892 -0.09941181 -0.10374236
##  [4,] -0.08352374 -0.09318177 -0.10130976 -0.10777424 -0.11246907
##  [5,] -0.09081584 -0.10131707 -0.11015468 -0.11718355 -0.12228827
##  [6,] -0.09905184 -0.11050541 -0.12014449 -0.12781080 -0.13337846
##  [7,] -0.10839014 -0.12092352 -0.13147134 -0.13986041 -0.14595297
##  [8,] -0.11902044 -0.13278303 -0.14436532 -0.15357714 -0.16026723
##  [9,] -0.13117020 -0.14633769 -0.15910231 -0.16925449 -0.17662751
## [10,] -0.14511205 -0.16189166 -0.17601302 -0.18724425 -0.19540094
## [11,] -0.16117208 -0.17980875 -0.19549297 -0.20796720 -0.21702661
## [12,] -0.17973815 -0.20052166 -0.21801260 -0.23192379 -0.24202679
## [13,] -0.20126685 -0.22453976 -0.24412574 -0.25970318 -0.27101630
## [14,] -0.22628603 -0.25245196 -0.27447265 -0.29198650 -0.30470594
## [15,] -0.25538727 -0.28491825 -0.30977087 -0.32953707 -0.34389228
## [16,] -0.28919816 -0.32263877 -0.35078165 -0.37316471 -0.38942041
## [17,] -0.32831775 -0.36628184 -0.39823158 -0.42364238 -0.44209697
## [18,] -0.37318981 -0.41634255 -0.45265895 -0.48154270 -0.50251954
## [19,] -0.42388115 -0.47289544 -0.51414479 -0.54695190 -0.57077808
## [20,] -0.47973581 -0.53520868 -0.58189345 -0.61902354 -0.64598928
## [21,] -0.53891274 -0.60122837 -0.65367185 -0.69538206 -0.72567411
## [22,] -0.59791668 -0.66705506 -0.72524042 -0.77151735 -0.80512599
## [23,] -0.65140713 -0.72673073 -0.79012143 -0.84053836 -0.87715367
## [24,] -0.69272169 -0.77282259 -0.84023375 -0.89384830 -0.93278589
## [25,] -0.71540858 -0.79813280 -0.86775170 -0.92312215 -0.96333496
## [26,] -0.71540858 -0.79813280 -0.86775170 -0.92312215 -0.96333496
## [27,] -0.69272169 -0.77282259 -0.84023375 -0.89384830 -0.93278589
## [28,] -0.65140713 -0.72673073 -0.79012143 -0.84053836 -0.87715367
## [29,] -0.59791668 -0.66705506 -0.72524042 -0.77151735 -0.80512599
## [30,] -0.53891274 -0.60122837 -0.65367185 -0.69538206 -0.72567411
## [31,] -0.47973581 -0.53520868 -0.58189345 -0.61902354 -0.64598928
## [32,] -0.42388115 -0.47289544 -0.51414479 -0.54695190 -0.57077808
## [33,] -0.37318981 -0.41634255 -0.45265895 -0.48154270 -0.50251954
## [34,] -0.32831775 -0.36628184 -0.39823158 -0.42364238 -0.44209697
## [35,] -0.28919816 -0.32263877 -0.35078165 -0.37316471 -0.38942041
## [36,] -0.25538727 -0.28491825 -0.30977087 -0.32953707 -0.34389228
## [37,] -0.22628603 -0.25245196 -0.27447265 -0.29198650 -0.30470594
## [38,] -0.20126685 -0.22453976 -0.24412574 -0.25970318 -0.27101630
## [39,] -0.17973815 -0.20052166 -0.21801260 -0.23192379 -0.24202679
## [40,] -0.16117208 -0.17980875 -0.19549297 -0.20796720 -0.21702661
## [41,] -0.14511205 -0.16189166 -0.17601302 -0.18724425 -0.19540094
## [42,] -0.13117020 -0.14633769 -0.15910231 -0.16925449 -0.17662751
## [43,] -0.11902044 -0.13278303 -0.14436532 -0.15357714 -0.16026723
## [44,] -0.10839014 -0.12092352 -0.13147134 -0.13986041 -0.14595297
## [45,] -0.09905184 -0.11050541 -0.12014449 -0.12781080 -0.13337846
## [46,] -0.09081584 -0.10131707 -0.11015468 -0.11718355 -0.12228827
## [47,] -0.08352374 -0.09318177 -0.10130976 -0.10777424 -0.11246907
## [48,] -0.07704296 -0.08595160 -0.09344892 -0.09941181 -0.10374236
## [49,] -0.07126224 -0.07950244 -0.08643722 -0.09195270 -0.09595832
## [50,] -0.06608790 -0.07372979 -0.08016103 -0.08527603 -0.08899081
##             [,49]       [,50]
##  [1,] -0.09124435 -0.09199967
##  [2,] -0.09838830 -0.09920276
##  [3,] -0.10636947 -0.10724999
##  [4,] -0.11531717 -0.11627176
##  [5,] -0.12538502 -0.12642295
##  [6,] -0.13675606 -0.13788811
##  [7,] -0.14964899 -0.15088778
##  [8,] -0.16432573 -0.16568601
##  [9,] -0.18110031 -0.18259945
## [10,] -0.20034915 -0.20200763
## [11,] -0.22252245 -0.22436448
## [12,] -0.24815572 -0.25020994
## [13,] -0.27787935 -0.28017962
## [14,] -0.31242211 -0.31500833
## [15,] -0.35260078 -0.35551960
## [16,] -0.39928184 -0.40258707
## [17,] -0.45329235 -0.45704468
## [18,] -0.51524502 -0.51951019
## [19,] -0.58523209 -0.59007662
## [20,] -0.66234790 -0.66783078
## [21,] -0.74405061 -0.75020983
## [22,] -0.82551448 -0.83234804
## [23,] -0.89936615 -0.90681105
## [24,] -0.95640716 -0.96432424
## [25,] -0.98772983 -0.99590621
## [26,] -0.98772983 -0.99590621
## [27,] -0.95640716 -0.96432424
## [28,] -0.89936615 -0.90681105
## [29,] -0.82551448 -0.83234804
## [30,] -0.74405061 -0.75020983
## [31,] -0.66234790 -0.66783078
## [32,] -0.58523209 -0.59007662
## [33,] -0.51524502 -0.51951019
## [34,] -0.45329235 -0.45704468
## [35,] -0.39928184 -0.40258707
## [36,] -0.35260078 -0.35551960
## [37,] -0.31242211 -0.31500833
## [38,] -0.27787935 -0.28017962
## [39,] -0.24815572 -0.25020994
## [40,] -0.22252245 -0.22436448
## [41,] -0.20034915 -0.20200763
## [42,] -0.18110031 -0.18259945
## [43,] -0.16432573 -0.16568601
## [44,] -0.14964899 -0.15088778
## [45,] -0.13675606 -0.13788811
## [46,] -0.12538502 -0.12642295
## [47,] -0.11531717 -0.11627176
## [48,] -0.10636947 -0.10724999
## [49,] -0.09838830 -0.09920276
## [50,] -0.09124435 -0.09199967
oldpar<-par(no.readonly=TRUE)
oldpar
## $xlog
## [1] FALSE
## 
## $ylog
## [1] FALSE
## 
## $adj
## [1] 0.5
## 
## $ann
## [1] TRUE
## 
## $ask
## [1] FALSE
## 
## $bg
## [1] "white"
## 
## $bty
## [1] "o"
## 
## $cex
## [1] 1
## 
## $cex.axis
## [1] 1
## 
## $cex.lab
## [1] 1
## 
## $cex.main
## [1] 1.2
## 
## $cex.sub
## [1] 1
## 
## $col
## [1] "black"
## 
## $col.axis
## [1] "black"
## 
## $col.lab
## [1] "black"
## 
## $col.main
## [1] "black"
## 
## $col.sub
## [1] "black"
## 
## $crt
## [1] 0
## 
## $err
## [1] 0
## 
## $family
## [1] ""
## 
## $fg
## [1] "black"
## 
## $fig
## [1] 0 1 0 1
## 
## $fin
## [1] 7 5
## 
## $font
## [1] 1
## 
## $font.axis
## [1] 1
## 
## $font.lab
## [1] 1
## 
## $font.main
## [1] 2
## 
## $font.sub
## [1] 1
## 
## $lab
## [1] 5 5 7
## 
## $las
## [1] 0
## 
## $lend
## [1] "round"
## 
## $lheight
## [1] 1
## 
## $ljoin
## [1] "round"
## 
## $lmitre
## [1] 10
## 
## $lty
## [1] "solid"
## 
## $lwd
## [1] 1
## 
## $mai
## [1] 1.02 0.82 0.82 0.42
## 
## $mar
## [1] 5.1 4.1 4.1 2.1
## 
## $mex
## [1] 1
## 
## $mfcol
## [1] 1 1
## 
## $mfg
## [1] 1 1 1 1
## 
## $mfrow
## [1] 1 1
## 
## $mgp
## [1] 3 1 0
## 
## $mkh
## [1] 0.001
## 
## $new
## [1] FALSE
## 
## $oma
## [1] 0 0 0 0
## 
## $omd
## [1] 0 1 0 1
## 
## $omi
## [1] 0 0 0 0
## 
## $pch
## [1] 1
## 
## $pin
## [1] 5.76 3.16
## 
## $plt
## [1] 0.1171429 0.9400000 0.2040000 0.8360000
## 
## $ps
## [1] 12
## 
## $pty
## [1] "m"
## 
## $smo
## [1] 1
## 
## $srt
## [1] 0
## 
## $tck
## [1] NA
## 
## $tcl
## [1] -0.5
## 
## $usr
## [1]  -4.500000 103.500000  -3.895947   2.745179
## 
## $xaxp
## [1]   0 100   5
## 
## $xaxs
## [1] "r"
## 
## $xaxt
## [1] "s"
## 
## $xpd
## [1] FALSE
## 
## $yaxp
## [1] -3  2  5
## 
## $yaxs
## [1] "r"
## 
## $yaxt
## [1] "s"
## 
## $ylbias
## [1] 0.2
par(pty="s")

contour(x,y,f)


contour(x,y,f,nlevels=15, add=TRUE)

fa<-(f-t(f))/2
fa
##               [,1]          [,2]          [,3]          [,4]          [,5]
##  [1,]  0.000000000  3.979203e-03  9.129591e-03  1.549786e-02  2.313096e-02
##  [2,] -0.003979203  0.000000e+00  5.205574e-03  1.168223e-02  1.947390e-02
##  [3,] -0.009129591 -5.205574e-03  0.000000e+00  6.528631e-03  1.441967e-02
##  [4,] -0.015497862 -1.168223e-02 -6.528631e-03  0.000000e+00  7.936896e-03
##  [5,] -0.023130959 -1.947390e-02 -1.441967e-02 -7.936896e-03  0.000000e+00
##  [6,] -0.032079164 -2.862681e-02 -2.371343e-02 -1.731452e-02 -9.413710e-03
##  [7,] -0.042399937 -3.919338e-02 -3.445501e-02 -2.816833e-02 -2.032775e-02
##  [8,] -0.054162579 -5.123691e-02 -4.669898e-02 -4.054144e-02 -3.277095e-02
##  [9,] -0.067453752 -6.483717e-02 -6.051496e-02 -5.449004e-02 -4.678280e-02
## [10,] -0.082383847 -8.009676e-02 -7.599397e-02 -7.008969e-02 -6.241956e-02
## [11,] -0.099094019 -9.714827e-02 -9.325552e-02 -8.744234e-02 -7.976108e-02
## [12,] -0.117763403 -1.161615e-01 -1.124549e-01 -1.066834e-01 -9.891776e-02
## [13,] -0.138615441 -1.373499e-01 -1.337894e-01 -1.279882e-01 -1.200368e-01
## [14,] -0.161921207 -1.609739e-01 -1.575022e-01 -1.515756e-01 -1.433061e-01
## [15,] -0.187995724 -1.873377e-01 -1.838788e-01 -1.777050e-01 -1.689513e-01
## [16,] -0.217180273 -2.167715e-01 -2.132304e-01 -2.066605e-01 -1.972219e-01
## [17,] -0.249799027 -2.495887e-01 -2.458521e-01 -2.387113e-01 -2.283535e-01
## [18,] -0.286072369 -2.860003e-01 -2.819395e-01 -2.740319e-01 -2.624938e-01
## [19,] -0.325964037 -3.259631e-01 -3.214412e-01 -3.125608e-01 -2.995695e-01
## [20,] -0.368941778 -3.689427e-01 -3.638272e-01 -3.537791e-01 -3.390788e-01
## [21,] -0.413656826 -4.135956e-01 -4.077795e-01 -3.964140e-01 -3.798127e-01
## [22,] -0.457618440 -4.574465e-01 -4.508774e-01 -4.381373e-01 -4.195718e-01
## [23,] -0.497061934 -4.967575e-01 -4.894699e-01 -4.754434e-01 -4.550519e-01
## [24,] -0.527313681 -5.268903e-01 -5.190290e-01 -5.039880e-01 -4.821627e-01
## [25,] -0.543858425 -5.433644e-01 -5.351823e-01 -5.195775e-01 -4.969575e-01
## [26,] -0.543858425 -5.433644e-01 -5.351823e-01 -5.195775e-01 -4.969575e-01
## [27,] -0.527313681 -5.268903e-01 -5.190290e-01 -5.039880e-01 -4.821627e-01
## [28,] -0.497061934 -4.967575e-01 -4.894699e-01 -4.754434e-01 -4.550519e-01
## [29,] -0.457618440 -4.574465e-01 -4.508774e-01 -4.381373e-01 -4.195718e-01
## [30,] -0.413656826 -4.135956e-01 -4.077795e-01 -3.964140e-01 -3.798127e-01
## [31,] -0.368941778 -3.689427e-01 -3.638272e-01 -3.537791e-01 -3.390788e-01
## [32,] -0.325964037 -3.259631e-01 -3.214412e-01 -3.125608e-01 -2.995695e-01
## [33,] -0.286072369 -2.860003e-01 -2.819395e-01 -2.740319e-01 -2.624938e-01
## [34,] -0.249799027 -2.495887e-01 -2.458521e-01 -2.387113e-01 -2.283535e-01
## [35,] -0.217180273 -2.167715e-01 -2.132304e-01 -2.066605e-01 -1.972219e-01
## [36,] -0.187995724 -1.873377e-01 -1.838788e-01 -1.777050e-01 -1.689513e-01
## [37,] -0.161921207 -1.609739e-01 -1.575022e-01 -1.515756e-01 -1.433061e-01
## [38,] -0.138615441 -1.373499e-01 -1.337894e-01 -1.279882e-01 -1.200368e-01
## [39,] -0.117763403 -1.161615e-01 -1.124549e-01 -1.066834e-01 -9.891776e-02
## [40,] -0.099094019 -9.714827e-02 -9.325552e-02 -8.744234e-02 -7.976108e-02
## [41,] -0.082383847 -8.009676e-02 -7.599397e-02 -7.008969e-02 -6.241956e-02
## [42,] -0.067453752 -6.483717e-02 -6.051496e-02 -5.449004e-02 -4.678280e-02
## [43,] -0.054162579 -5.123691e-02 -4.669898e-02 -4.054144e-02 -3.277095e-02
## [44,] -0.042399937 -3.919338e-02 -3.445501e-02 -2.816833e-02 -2.032775e-02
## [45,] -0.032079164 -2.862681e-02 -2.371343e-02 -1.731452e-02 -9.413710e-03
## [46,] -0.023130959 -1.947390e-02 -1.441967e-02 -7.936896e-03 -5.551115e-17
## [47,] -0.015497862 -1.168223e-02 -6.528631e-03 -1.387779e-17  7.936896e-03
## [48,] -0.009129591 -5.205574e-03 -3.469447e-17  6.528631e-03  1.441967e-02
## [49,] -0.003979203 -6.938894e-18  5.205574e-03  1.168223e-02  1.947390e-02
## [50,]  0.000000000  3.979203e-03  9.129591e-03  1.549786e-02  2.313096e-02
##              [,6]          [,7]        [,8]          [,9]         [,10]
##  [1,]  0.03207916  4.239994e-02  0.05416258  6.745375e-02  8.238385e-02
##  [2,]  0.02862681  3.919338e-02  0.05123691  6.483717e-02  8.009676e-02
##  [3,]  0.02371343  3.445501e-02  0.04669898  6.051496e-02  7.599397e-02
##  [4,]  0.01731452  2.816833e-02  0.04054144  5.449004e-02  7.008969e-02
##  [5,]  0.00941371  2.032775e-02  0.03277095  4.678280e-02  6.241956e-02
##  [6,]  0.00000000  1.093584e-02  0.02340560  3.742876e-02  5.303843e-02
##  [7,] -0.01093584  0.000000e+00  0.01247173  2.647555e-02  4.201759e-02
##  [8,] -0.02340560 -1.247173e-02  0.00000000  1.397925e-02  2.944138e-02
##  [9,] -0.03742876 -2.647555e-02 -0.01397925  0.000000e+00  1.540302e-02
## [10,] -0.05303843 -4.201759e-02 -0.02944138 -1.540302e-02  0.000000e+00
## [11,] -0.07028789 -5.912017e-02 -0.04637336 -3.217715e-02 -1.667113e-02
## [12,] -0.08925736 -7.782824e-02 -0.06477994 -5.028206e-02 -3.452021e-02
## [13,] -0.11006012 -9.821533e-02 -0.08468932 -6.969522e-02 -5.346869e-02
## [14,] -0.13284620 -1.203874e-01 -0.10615708 -9.041586e-02 -7.345375e-02
## [15,] -0.15780062 -1.444815e-01 -0.12926572 -1.124655e-01 -9.442967e-02
## [16,] -0.18513025 -1.706548e-01 -0.15411555 -1.358808e-01 -1.163635e-01
## [17,] -0.21503018 -1.990546e-01 -0.18079941 -1.606939e-01 -1.392202e-01
## [18,] -0.24761532 -2.297576e-01 -0.20935052 -1.868892e-01 -1.629305e-01
## [19,] -0.28279887 -2.626616e-01 -0.23964880 -2.143266e-01 -1.873315e-01
## [20,] -0.32010152 -2.973143e-01 -0.27127331 -2.426191e-01 -2.120723e-01
## [21,] -0.35839538 -3.326850e-01 -0.30330383 -2.709688e-01 -2.364863e-01
## [22,] -0.39564398 -3.669309e-01 -0.33411923 -2.979997e-01 -2.594616e-01
## [23,] -0.42879712 -3.973040e-01 -0.36131635 -3.216906e-01 -2.793893e-01
## [24,] -0.45408396 -4.204135e-01 -0.38193848 -3.395653e-01 -2.943124e-01
## [25,] -0.46786880 -4.329932e-01 -0.39314148 -3.492473e-01 -3.023594e-01
## [26,] -0.46786880 -4.329932e-01 -0.39314148 -3.492473e-01 -3.023594e-01
## [27,] -0.45408396 -4.204135e-01 -0.38193848 -3.395653e-01 -2.943124e-01
## [28,] -0.42879712 -3.973040e-01 -0.36131635 -3.216906e-01 -2.793893e-01
## [29,] -0.39564398 -3.669309e-01 -0.33411923 -2.979997e-01 -2.594616e-01
## [30,] -0.35839538 -3.326850e-01 -0.30330383 -2.709688e-01 -2.364863e-01
## [31,] -0.32010152 -2.973143e-01 -0.27127331 -2.426191e-01 -2.120723e-01
## [32,] -0.28279887 -2.626616e-01 -0.23964880 -2.143266e-01 -1.873315e-01
## [33,] -0.24761532 -2.297576e-01 -0.20935052 -1.868892e-01 -1.629305e-01
## [34,] -0.21503018 -1.990546e-01 -0.18079941 -1.606939e-01 -1.392202e-01
## [35,] -0.18513025 -1.706548e-01 -0.15411555 -1.358808e-01 -1.163635e-01
## [36,] -0.15780062 -1.444815e-01 -0.12926572 -1.124655e-01 -9.442967e-02
## [37,] -0.13284620 -1.203874e-01 -0.10615708 -9.041586e-02 -7.345375e-02
## [38,] -0.11006012 -9.821533e-02 -0.08468932 -6.969522e-02 -5.346869e-02
## [39,] -0.08925736 -7.782824e-02 -0.06477994 -5.028206e-02 -3.452021e-02
## [40,] -0.07028789 -5.912017e-02 -0.04637336 -3.217715e-02 -1.667113e-02
## [41,] -0.05303843 -4.201759e-02 -0.02944138 -1.540302e-02 -1.110223e-16
## [42,] -0.03742876 -2.647555e-02 -0.01397925 -5.551115e-17  1.540302e-02
## [43,] -0.02340560 -1.247173e-02  0.00000000  1.397925e-02  2.944138e-02
## [44,] -0.01093584 -3.469447e-17  0.01247173  2.647555e-02  4.201759e-02
## [45,]  0.00000000  1.093584e-02  0.02340560  3.742876e-02  5.303843e-02
## [46,]  0.00941371  2.032775e-02  0.03277095  4.678280e-02  6.241956e-02
## [47,]  0.01731452  2.816833e-02  0.04054144  5.449004e-02  7.008969e-02
## [48,]  0.02371343  3.445501e-02  0.04669898  6.051496e-02  7.599397e-02
## [49,]  0.02862681  3.919338e-02  0.05123691  6.483717e-02  8.009676e-02
## [50,]  0.03207916  4.239994e-02  0.05416258  6.745375e-02  8.238385e-02
##               [,11]         [,12]         [,13]         [,14]       [,15]
##  [1,]  9.909402e-02  1.177634e-01  1.386154e-01  1.619212e-01  0.18799572
##  [2,]  9.714827e-02  1.161615e-01  1.373499e-01  1.609739e-01  0.18733774
##  [3,]  9.325552e-02  1.124549e-01  1.337894e-01  1.575022e-01  0.18387882
##  [4,]  8.744234e-02  1.066834e-01  1.279882e-01  1.515756e-01  0.17770499
##  [5,]  7.976108e-02  9.891776e-02  1.200368e-01  1.433061e-01  0.16895131
##  [6,]  7.028789e-02  8.925736e-02  1.100601e-01  1.328462e-01  0.15780062
##  [7,]  5.912017e-02  7.782824e-02  9.821533e-02  1.203874e-01  0.14448148
##  [8,]  4.637336e-02  6.477994e-02  8.468932e-02  1.061571e-01  0.12926572
##  [9,]  3.217715e-02  5.028206e-02  6.969522e-02  9.041586e-02  0.11246546
## [10,]  1.667113e-02  3.452021e-02  5.346869e-02  7.345375e-02  0.09442967
## [11,]  0.000000e+00  1.769154e-02  3.626380e-02  5.558636e-02  0.07554046
## [12,] -1.769154e-02  0.000000e+00  1.834851e-02  3.715061e-02  0.05620892
## [13,] -3.626380e-02 -1.834851e-02  0.000000e+00  1.850010e-02  0.03687040
## [14,] -5.558636e-02 -3.715061e-02 -1.850010e-02  0.000000e+00  0.01797894
## [15,] -7.554046e-02 -5.620892e-02 -3.687040e-02 -1.797894e-02  0.00000000
## [16,] -9.601739e-02 -7.533331e-02 -5.483390e-02 -3.506762e-02 -0.01660000
## [17,] -1.169095e-01 -9.433798e-02 -7.212140e-02 -5.090830e-02 -0.03136971
## [18,] -1.380888e-01 -1.130315e-01 -8.847327e-02 -6.516829e-02 -0.04389839
## [19,] -1.593668e-01 -1.311963e-01 -1.036389e-01 -7.755972e-02 -0.05385587
## [20,] -1.804289e-01 -1.485535e-01 -1.173733e-01 -8.786734e-02 -0.06105131
## [21,] -2.007463e-01 -1.647157e-01 -1.294303e-01 -9.598366e-02 -0.06550968
## [22,] -2.194857e-01 -1.791370e-01 -1.395556e-01 -1.019441e-01 -0.06754861
## [23,] -2.354736e-01 -1.910951e-01 -1.474854e-01 -1.059429e-01 -0.06781174
## [24,] -2.473019e-01 -1.997510e-01 -1.529605e-01 -1.083010e-01 -0.06719059
## [25,] -2.536331e-01 -2.043212e-01 -1.557622e-01 -1.093656e-01 -0.06658958
## [26,] -2.536331e-01 -2.043212e-01 -1.557622e-01 -1.093656e-01 -0.06658958
## [27,] -2.473019e-01 -1.997510e-01 -1.529605e-01 -1.083010e-01 -0.06719059
## [28,] -2.354736e-01 -1.910951e-01 -1.474854e-01 -1.059429e-01 -0.06781174
## [29,] -2.194857e-01 -1.791370e-01 -1.395556e-01 -1.019441e-01 -0.06754861
## [30,] -2.007463e-01 -1.647157e-01 -1.294303e-01 -9.598366e-02 -0.06550968
## [31,] -1.804289e-01 -1.485535e-01 -1.173733e-01 -8.786734e-02 -0.06105131
## [32,] -1.593668e-01 -1.311963e-01 -1.036389e-01 -7.755972e-02 -0.05385587
## [33,] -1.380888e-01 -1.130315e-01 -8.847327e-02 -6.516829e-02 -0.04389839
## [34,] -1.169095e-01 -9.433798e-02 -7.212140e-02 -5.090830e-02 -0.03136971
## [35,] -9.601739e-02 -7.533331e-02 -5.483390e-02 -3.506762e-02 -0.01660000
## [36,] -7.554046e-02 -5.620892e-02 -3.687040e-02 -1.797894e-02  0.00000000
## [37,] -5.558636e-02 -3.715061e-02 -1.850010e-02 -9.540979e-17  0.01797894
## [38,] -3.626380e-02 -1.834851e-02 -3.209238e-17  1.850010e-02  0.03687040
## [39,] -1.769154e-02 -9.020562e-17  1.834851e-02  3.715061e-02  0.05620892
## [40,] -5.551115e-17  1.769154e-02  3.626380e-02  5.558636e-02  0.07554046
## [41,]  1.667113e-02  3.452021e-02  5.346869e-02  7.345375e-02  0.09442967
## [42,]  3.217715e-02  5.028206e-02  6.969522e-02  9.041586e-02  0.11246546
## [43,]  4.637336e-02  6.477994e-02  8.468932e-02  1.061571e-01  0.12926572
## [44,]  5.912017e-02  7.782824e-02  9.821533e-02  1.203874e-01  0.14448148
## [45,]  7.028789e-02  8.925736e-02  1.100601e-01  1.328462e-01  0.15780062
## [46,]  7.976108e-02  9.891776e-02  1.200368e-01  1.433061e-01  0.16895131
## [47,]  8.744234e-02  1.066834e-01  1.279882e-01  1.515756e-01  0.17770499
## [48,]  9.325552e-02  1.124549e-01  1.337894e-01  1.575022e-01  0.18387882
## [49,]  9.714827e-02  1.161615e-01  1.373499e-01  1.609739e-01  0.18733774
## [50,]  9.909402e-02  1.177634e-01  1.386154e-01  1.619212e-01  0.18799572
##               [,16]        [,17]         [,18]         [,19]        [,20]
##  [1,]  2.171803e-01  0.249799027  2.860724e-01  3.259640e-01 0.3689417777
##  [2,]  2.167715e-01  0.249588714  2.860003e-01  3.259631e-01 0.3689427187
##  [3,]  2.132304e-01  0.245852100  2.819395e-01  3.214412e-01 0.3638271762
##  [4,]  2.066605e-01  0.238711258  2.740319e-01  3.125608e-01 0.3537791004
##  [5,]  1.972219e-01  0.228353518  2.624938e-01  2.995695e-01 0.3390788467
##  [6,]  1.851303e-01  0.215030184  2.476153e-01  2.827989e-01 0.3201015157
##  [7,]  1.706548e-01  0.199054563  2.297576e-01  2.626616e-01 0.2973143472
##  [8,]  1.541155e-01  0.180799412  2.093505e-01  2.396488e-01 0.2712733131
##  [9,]  1.358808e-01  0.160693902  1.868892e-01  2.143266e-01 0.2426190625
## [10,]  1.163635e-01  0.139220169  1.629305e-01  1.873315e-01 0.2120723335
## [11,]  9.601739e-02  0.116909492  1.380888e-01  1.593668e-01 0.1804288540
## [12,]  7.533331e-02  0.094337981  1.130315e-01  1.311963e-01 0.1485535360
## [13,]  5.483390e-02  0.072121402  8.847327e-02  1.036389e-01 0.1173733336
## [14,]  3.506762e-02  0.050908300  6.516829e-02  7.755972e-02 0.0878673427
## [15,]  1.660000e-02  0.031369708  4.389839e-02  5.385587e-02 0.0610513150
## [16,]  0.000000e+00  0.014182338  2.545305e-02  3.343390e-02 0.0379514436
## [17,] -1.418234e-02  0.000000000  1.059476e-02  1.716926e-02 0.0195587601
## [18,] -2.545305e-02 -0.010594760  0.000000e+00  5.837252e-03 0.0067509114
## [19,] -3.343390e-02 -0.017169259 -5.837252e-03  0.000000e+00 0.0001641131
## [20,] -3.795144e-02 -0.019558760 -6.750911e-03 -1.641131e-04 0.0000000000
## [21,] -3.915359e-02 -0.018021471 -3.093887e-03  4.915271e-03 0.0057716034
## [22,] -3.762725e-02 -0.013395095  4.068835e-03  1.397384e-02 0.0160466558
## [23,] -3.444836e-02 -0.007163025  1.287879e-02  2.481714e-02 0.0283394863
## [24,] -3.105957e-02 -0.001289754  2.088799e-02  3.456047e-02 0.0393826906
## [25,] -2.890436e-02  0.002269559  2.566586e-02  4.034219e-02 0.0459350527
## [26,] -2.890436e-02  0.002269559  2.566586e-02  4.034219e-02 0.0459350527
## [27,] -3.105957e-02 -0.001289754  2.088799e-02  3.456047e-02 0.0393826906
## [28,] -3.444836e-02 -0.007163025  1.287879e-02  2.481714e-02 0.0283394863
## [29,] -3.762725e-02 -0.013395095  4.068835e-03  1.397384e-02 0.0160466558
## [30,] -3.915359e-02 -0.018021471 -3.093887e-03  4.915271e-03 0.0057716034
## [31,] -3.795144e-02 -0.019558760 -6.750911e-03 -1.641131e-04 0.0000000000
## [32,] -3.343390e-02 -0.017169259 -5.837252e-03 -2.775558e-17 0.0001641131
## [33,] -2.545305e-02 -0.010594760 -2.775558e-17  5.837252e-03 0.0067509114
## [34,] -1.418234e-02  0.000000000  1.059476e-02  1.716926e-02 0.0195587601
## [35,] -5.551115e-17  0.014182338  2.545305e-02  3.343390e-02 0.0379514436
## [36,]  1.660000e-02  0.031369708  4.389839e-02  5.385587e-02 0.0610513150
## [37,]  3.506762e-02  0.050908300  6.516829e-02  7.755972e-02 0.0878673427
## [38,]  5.483390e-02  0.072121402  8.847327e-02  1.036389e-01 0.1173733336
## [39,]  7.533331e-02  0.094337981  1.130315e-01  1.311963e-01 0.1485535360
## [40,]  9.601739e-02  0.116909492  1.380888e-01  1.593668e-01 0.1804288540
## [41,]  1.163635e-01  0.139220169  1.629305e-01  1.873315e-01 0.2120723335
## [42,]  1.358808e-01  0.160693902  1.868892e-01  2.143266e-01 0.2426190625
## [43,]  1.541155e-01  0.180799412  2.093505e-01  2.396488e-01 0.2712733131
## [44,]  1.706548e-01  0.199054563  2.297576e-01  2.626616e-01 0.2973143472
## [45,]  1.851303e-01  0.215030184  2.476153e-01  2.827989e-01 0.3201015157
## [46,]  1.972219e-01  0.228353518  2.624938e-01  2.995695e-01 0.3390788467
## [47,]  2.066605e-01  0.238711258  2.740319e-01  3.125608e-01 0.3537791004
## [48,]  2.132304e-01  0.245852100  2.819395e-01  3.214412e-01 0.3638271762
## [49,]  2.167715e-01  0.249588714  2.860003e-01  3.259631e-01 0.3689427187
## [50,]  2.171803e-01  0.249799027  2.860724e-01  3.259640e-01 0.3689417777
##               [,21]        [,22]         [,23]         [,24]        [,25]
##  [1,]  4.136568e-01  0.457618440  4.970619e-01  5.273137e-01  0.543858425
##  [2,]  4.135956e-01  0.457446537  4.967575e-01  5.268903e-01  0.543364382
##  [3,]  4.077795e-01  0.450877443  4.894699e-01  5.190290e-01  0.535182294
##  [4,]  3.964140e-01  0.438137291  4.754434e-01  5.039880e-01  0.519577508
##  [5,]  3.798127e-01  0.419571780  4.550519e-01  4.821627e-01  0.496957452
##  [6,]  3.583954e-01  0.395643979  4.287971e-01  4.540840e-01  0.467868804
##  [7,]  3.326850e-01  0.366930932  3.973040e-01  4.204135e-01  0.432993169
##  [8,]  3.033038e-01  0.334119228  3.613164e-01  3.819385e-01  0.393141479
##  [9,]  2.709688e-01  0.297999729  3.216906e-01  3.395653e-01  0.349247327
## [10,]  2.364863e-01  0.259461603  2.793893e-01  2.943124e-01  0.302359412
## [11,]  2.007463e-01  0.219485697  2.354736e-01  2.473019e-01  0.253633145
## [12,]  1.647157e-01  0.179137015  1.910951e-01  1.997510e-01  0.204321193
## [13,]  1.294303e-01  0.139555590  1.474854e-01  1.529605e-01  0.155762162
## [14,]  9.598366e-02  0.101944059  1.059429e-01  1.083010e-01  0.109365591
## [15,]  6.550968e-02  0.067548612  6.781174e-02  6.719059e-02  0.066589581
## [16,]  3.915359e-02  0.037627247  3.444836e-02  3.105957e-02  0.028904358
## [17,]  1.802147e-02  0.013395095  7.163025e-03  1.289754e-03 -0.002269559
## [18,]  3.093887e-03 -0.004068835 -1.287879e-02 -2.088799e-02 -0.025665864
## [19,] -4.915271e-03 -0.013973835 -2.481714e-02 -3.456047e-02 -0.040342194
## [20,] -5.771603e-03 -0.016046656 -2.833949e-02 -3.938269e-02 -0.045935053
## [21,]  0.000000e+00 -0.010832648 -2.399831e-02 -3.590668e-02 -0.042994353
## [22,]  1.083265e-02  0.000000000 -1.353192e-02 -2.591364e-02 -0.033321296
## [23,]  2.399831e-02  0.013531918  0.000000e+00 -1.255439e-02 -0.020111297
## [24,]  3.590668e-02  0.025913640  1.255439e-02  0.000000e+00 -0.007598959
## [25,]  4.299435e-02  0.033321296  2.011130e-02  7.598959e-03  0.000000000
## [26,]  4.299435e-02  0.033321296  2.011130e-02  7.598959e-03  0.000000000
## [27,]  3.590668e-02  0.025913640  1.255439e-02  5.551115e-17 -0.007598959
## [28,]  2.399831e-02  0.013531918  1.110223e-16 -1.255439e-02 -0.020111297
## [29,]  1.083265e-02  0.000000000 -1.353192e-02 -2.591364e-02 -0.033321296
## [30,]  5.551115e-17 -0.010832648 -2.399831e-02 -3.590668e-02 -0.042994353
## [31,] -5.771603e-03 -0.016046656 -2.833949e-02 -3.938269e-02 -0.045935053
## [32,] -4.915271e-03 -0.013973835 -2.481714e-02 -3.456047e-02 -0.040342194
## [33,]  3.093887e-03 -0.004068835 -1.287879e-02 -2.088799e-02 -0.025665864
## [34,]  1.802147e-02  0.013395095  7.163025e-03  1.289754e-03 -0.002269559
## [35,]  3.915359e-02  0.037627247  3.444836e-02  3.105957e-02  0.028904358
## [36,]  6.550968e-02  0.067548612  6.781174e-02  6.719059e-02  0.066589581
## [37,]  9.598366e-02  0.101944059  1.059429e-01  1.083010e-01  0.109365591
## [38,]  1.294303e-01  0.139555590  1.474854e-01  1.529605e-01  0.155762162
## [39,]  1.647157e-01  0.179137015  1.910951e-01  1.997510e-01  0.204321193
## [40,]  2.007463e-01  0.219485697  2.354736e-01  2.473019e-01  0.253633145
## [41,]  2.364863e-01  0.259461603  2.793893e-01  2.943124e-01  0.302359412
## [42,]  2.709688e-01  0.297999729  3.216906e-01  3.395653e-01  0.349247327
## [43,]  3.033038e-01  0.334119228  3.613164e-01  3.819385e-01  0.393141479
## [44,]  3.326850e-01  0.366930932  3.973040e-01  4.204135e-01  0.432993169
## [45,]  3.583954e-01  0.395643979  4.287971e-01  4.540840e-01  0.467868804
## [46,]  3.798127e-01  0.419571780  4.550519e-01  4.821627e-01  0.496957452
## [47,]  3.964140e-01  0.438137291  4.754434e-01  5.039880e-01  0.519577508
## [48,]  4.077795e-01  0.450877443  4.894699e-01  5.190290e-01  0.535182294
## [49,]  4.135956e-01  0.457446537  4.967575e-01  5.268903e-01  0.543364382
## [50,]  4.136568e-01  0.457618440  4.970619e-01  5.273137e-01  0.543858425
##              [,26]         [,27]         [,28]        [,29]         [,30]
##  [1,]  0.543858425  5.273137e-01  4.970619e-01  0.457618440  4.136568e-01
##  [2,]  0.543364382  5.268903e-01  4.967575e-01  0.457446537  4.135956e-01
##  [3,]  0.535182294  5.190290e-01  4.894699e-01  0.450877443  4.077795e-01
##  [4,]  0.519577508  5.039880e-01  4.754434e-01  0.438137291  3.964140e-01
##  [5,]  0.496957452  4.821627e-01  4.550519e-01  0.419571780  3.798127e-01
##  [6,]  0.467868804  4.540840e-01  4.287971e-01  0.395643979  3.583954e-01
##  [7,]  0.432993169  4.204135e-01  3.973040e-01  0.366930932  3.326850e-01
##  [8,]  0.393141479  3.819385e-01  3.613164e-01  0.334119228  3.033038e-01
##  [9,]  0.349247327  3.395653e-01  3.216906e-01  0.297999729  2.709688e-01
## [10,]  0.302359412  2.943124e-01  2.793893e-01  0.259461603  2.364863e-01
## [11,]  0.253633145  2.473019e-01  2.354736e-01  0.219485697  2.007463e-01
## [12,]  0.204321193  1.997510e-01  1.910951e-01  0.179137015  1.647157e-01
## [13,]  0.155762162  1.529605e-01  1.474854e-01  0.139555590  1.294303e-01
## [14,]  0.109365591  1.083010e-01  1.059429e-01  0.101944059  9.598366e-02
## [15,]  0.066589581  6.719059e-02  6.781174e-02  0.067548612  6.550968e-02
## [16,]  0.028904358  3.105957e-02  3.444836e-02  0.037627247  3.915359e-02
## [17,] -0.002269559  1.289754e-03  7.163025e-03  0.013395095  1.802147e-02
## [18,] -0.025665864 -2.088799e-02 -1.287879e-02 -0.004068835  3.093887e-03
## [19,] -0.040342194 -3.456047e-02 -2.481714e-02 -0.013973835 -4.915271e-03
## [20,] -0.045935053 -3.938269e-02 -2.833949e-02 -0.016046656 -5.771603e-03
## [21,] -0.042994353 -3.590668e-02 -2.399831e-02 -0.010832648 -5.551115e-17
## [22,] -0.033321296 -2.591364e-02 -1.353192e-02  0.000000000  1.083265e-02
## [23,] -0.020111297 -1.255439e-02 -1.110223e-16  0.013531918  2.399831e-02
## [24,] -0.007598959 -5.551115e-17  1.255439e-02  0.025913640  3.590668e-02
## [25,]  0.000000000  7.598959e-03  2.011130e-02  0.033321296  4.299435e-02
## [26,]  0.000000000  7.598959e-03  2.011130e-02  0.033321296  4.299435e-02
## [27,] -0.007598959  0.000000e+00  1.255439e-02  0.025913640  3.590668e-02
## [28,] -0.020111297 -1.255439e-02  0.000000e+00  0.013531918  2.399831e-02
## [29,] -0.033321296 -2.591364e-02 -1.353192e-02  0.000000000  1.083265e-02
## [30,] -0.042994353 -3.590668e-02 -2.399831e-02 -0.010832648  0.000000e+00
## [31,] -0.045935053 -3.938269e-02 -2.833949e-02 -0.016046656 -5.771603e-03
## [32,] -0.040342194 -3.456047e-02 -2.481714e-02 -0.013973835 -4.915271e-03
## [33,] -0.025665864 -2.088799e-02 -1.287879e-02 -0.004068835  3.093887e-03
## [34,] -0.002269559  1.289754e-03  7.163025e-03  0.013395095  1.802147e-02
## [35,]  0.028904358  3.105957e-02  3.444836e-02  0.037627247  3.915359e-02
## [36,]  0.066589581  6.719059e-02  6.781174e-02  0.067548612  6.550968e-02
## [37,]  0.109365591  1.083010e-01  1.059429e-01  0.101944059  9.598366e-02
## [38,]  0.155762162  1.529605e-01  1.474854e-01  0.139555590  1.294303e-01
## [39,]  0.204321193  1.997510e-01  1.910951e-01  0.179137015  1.647157e-01
## [40,]  0.253633145  2.473019e-01  2.354736e-01  0.219485697  2.007463e-01
## [41,]  0.302359412  2.943124e-01  2.793893e-01  0.259461603  2.364863e-01
## [42,]  0.349247327  3.395653e-01  3.216906e-01  0.297999729  2.709688e-01
## [43,]  0.393141479  3.819385e-01  3.613164e-01  0.334119228  3.033038e-01
## [44,]  0.432993169  4.204135e-01  3.973040e-01  0.366930932  3.326850e-01
## [45,]  0.467868804  4.540840e-01  4.287971e-01  0.395643979  3.583954e-01
## [46,]  0.496957452  4.821627e-01  4.550519e-01  0.419571780  3.798127e-01
## [47,]  0.519577508  5.039880e-01  4.754434e-01  0.438137291  3.964140e-01
## [48,]  0.535182294  5.190290e-01  4.894699e-01  0.450877443  4.077795e-01
## [49,]  0.543364382  5.268903e-01  4.967575e-01  0.457446537  4.135956e-01
## [50,]  0.543858425  5.273137e-01  4.970619e-01  0.457618440  4.136568e-01
##              [,31]         [,32]         [,33]        [,34]         [,35]
##  [1,] 0.3689417777  3.259640e-01  2.860724e-01  0.249799027  2.171803e-01
##  [2,] 0.3689427187  3.259631e-01  2.860003e-01  0.249588714  2.167715e-01
##  [3,] 0.3638271762  3.214412e-01  2.819395e-01  0.245852100  2.132304e-01
##  [4,] 0.3537791004  3.125608e-01  2.740319e-01  0.238711258  2.066605e-01
##  [5,] 0.3390788467  2.995695e-01  2.624938e-01  0.228353518  1.972219e-01
##  [6,] 0.3201015157  2.827989e-01  2.476153e-01  0.215030184  1.851303e-01
##  [7,] 0.2973143472  2.626616e-01  2.297576e-01  0.199054563  1.706548e-01
##  [8,] 0.2712733131  2.396488e-01  2.093505e-01  0.180799412  1.541155e-01
##  [9,] 0.2426190625  2.143266e-01  1.868892e-01  0.160693902  1.358808e-01
## [10,] 0.2120723335  1.873315e-01  1.629305e-01  0.139220169  1.163635e-01
## [11,] 0.1804288540  1.593668e-01  1.380888e-01  0.116909492  9.601739e-02
## [12,] 0.1485535360  1.311963e-01  1.130315e-01  0.094337981  7.533331e-02
## [13,] 0.1173733336  1.036389e-01  8.847327e-02  0.072121402  5.483390e-02
## [14,] 0.0878673427  7.755972e-02  6.516829e-02  0.050908300  3.506762e-02
## [15,] 0.0610513150  5.385587e-02  4.389839e-02  0.031369708  1.660000e-02
## [16,] 0.0379514436  3.343390e-02  2.545305e-02  0.014182338  5.551115e-17
## [17,] 0.0195587601  1.716926e-02  1.059476e-02  0.000000000 -1.418234e-02
## [18,] 0.0067509114  5.837252e-03  2.775558e-17 -0.010594760 -2.545305e-02
## [19,] 0.0001641131  2.775558e-17 -5.837252e-03 -0.017169259 -3.343390e-02
## [20,] 0.0000000000 -1.641131e-04 -6.750911e-03 -0.019558760 -3.795144e-02
## [21,] 0.0057716034  4.915271e-03 -3.093887e-03 -0.018021471 -3.915359e-02
## [22,] 0.0160466558  1.397384e-02  4.068835e-03 -0.013395095 -3.762725e-02
## [23,] 0.0283394863  2.481714e-02  1.287879e-02 -0.007163025 -3.444836e-02
## [24,] 0.0393826906  3.456047e-02  2.088799e-02 -0.001289754 -3.105957e-02
## [25,] 0.0459350527  4.034219e-02  2.566586e-02  0.002269559 -2.890436e-02
## [26,] 0.0459350527  4.034219e-02  2.566586e-02  0.002269559 -2.890436e-02
## [27,] 0.0393826906  3.456047e-02  2.088799e-02 -0.001289754 -3.105957e-02
## [28,] 0.0283394863  2.481714e-02  1.287879e-02 -0.007163025 -3.444836e-02
## [29,] 0.0160466558  1.397384e-02  4.068835e-03 -0.013395095 -3.762725e-02
## [30,] 0.0057716034  4.915271e-03 -3.093887e-03 -0.018021471 -3.915359e-02
## [31,] 0.0000000000 -1.641131e-04 -6.750911e-03 -0.019558760 -3.795144e-02
## [32,] 0.0001641131  0.000000e+00 -5.837252e-03 -0.017169259 -3.343390e-02
## [33,] 0.0067509114  5.837252e-03  0.000000e+00 -0.010594760 -2.545305e-02
## [34,] 0.0195587601  1.716926e-02  1.059476e-02  0.000000000 -1.418234e-02
## [35,] 0.0379514436  3.343390e-02  2.545305e-02  0.014182338  0.000000e+00
## [36,] 0.0610513150  5.385587e-02  4.389839e-02  0.031369708  1.660000e-02
## [37,] 0.0878673427  7.755972e-02  6.516829e-02  0.050908300  3.506762e-02
## [38,] 0.1173733336  1.036389e-01  8.847327e-02  0.072121402  5.483390e-02
## [39,] 0.1485535360  1.311963e-01  1.130315e-01  0.094337981  7.533331e-02
## [40,] 0.1804288540  1.593668e-01  1.380888e-01  0.116909492  9.601739e-02
## [41,] 0.2120723335  1.873315e-01  1.629305e-01  0.139220169  1.163635e-01
## [42,] 0.2426190625  2.143266e-01  1.868892e-01  0.160693902  1.358808e-01
## [43,] 0.2712733131  2.396488e-01  2.093505e-01  0.180799412  1.541155e-01
## [44,] 0.2973143472  2.626616e-01  2.297576e-01  0.199054563  1.706548e-01
## [45,] 0.3201015157  2.827989e-01  2.476153e-01  0.215030184  1.851303e-01
## [46,] 0.3390788467  2.995695e-01  2.624938e-01  0.228353518  1.972219e-01
## [47,] 0.3537791004  3.125608e-01  2.740319e-01  0.238711258  2.066605e-01
## [48,] 0.3638271762  3.214412e-01  2.819395e-01  0.245852100  2.132304e-01
## [49,] 0.3689427187  3.259631e-01  2.860003e-01  0.249588714  2.167715e-01
## [50,] 0.3689417777  3.259640e-01  2.860724e-01  0.249799027  2.171803e-01
##             [,36]         [,37]         [,38]         [,39]         [,40]
##  [1,]  0.18799572  1.619212e-01  1.386154e-01  1.177634e-01  9.909402e-02
##  [2,]  0.18733774  1.609739e-01  1.373499e-01  1.161615e-01  9.714827e-02
##  [3,]  0.18387882  1.575022e-01  1.337894e-01  1.124549e-01  9.325552e-02
##  [4,]  0.17770499  1.515756e-01  1.279882e-01  1.066834e-01  8.744234e-02
##  [5,]  0.16895131  1.433061e-01  1.200368e-01  9.891776e-02  7.976108e-02
##  [6,]  0.15780062  1.328462e-01  1.100601e-01  8.925736e-02  7.028789e-02
##  [7,]  0.14448148  1.203874e-01  9.821533e-02  7.782824e-02  5.912017e-02
##  [8,]  0.12926572  1.061571e-01  8.468932e-02  6.477994e-02  4.637336e-02
##  [9,]  0.11246546  9.041586e-02  6.969522e-02  5.028206e-02  3.217715e-02
## [10,]  0.09442967  7.345375e-02  5.346869e-02  3.452021e-02  1.667113e-02
## [11,]  0.07554046  5.558636e-02  3.626380e-02  1.769154e-02  5.551115e-17
## [12,]  0.05620892  3.715061e-02  1.834851e-02  9.020562e-17 -1.769154e-02
## [13,]  0.03687040  1.850010e-02  3.209238e-17 -1.834851e-02 -3.626380e-02
## [14,]  0.01797894  9.540979e-17 -1.850010e-02 -3.715061e-02 -5.558636e-02
## [15,]  0.00000000 -1.797894e-02 -3.687040e-02 -5.620892e-02 -7.554046e-02
## [16,] -0.01660000 -3.506762e-02 -5.483390e-02 -7.533331e-02 -9.601739e-02
## [17,] -0.03136971 -5.090830e-02 -7.212140e-02 -9.433798e-02 -1.169095e-01
## [18,] -0.04389839 -6.516829e-02 -8.847327e-02 -1.130315e-01 -1.380888e-01
## [19,] -0.05385587 -7.755972e-02 -1.036389e-01 -1.311963e-01 -1.593668e-01
## [20,] -0.06105131 -8.786734e-02 -1.173733e-01 -1.485535e-01 -1.804289e-01
## [21,] -0.06550968 -9.598366e-02 -1.294303e-01 -1.647157e-01 -2.007463e-01
## [22,] -0.06754861 -1.019441e-01 -1.395556e-01 -1.791370e-01 -2.194857e-01
## [23,] -0.06781174 -1.059429e-01 -1.474854e-01 -1.910951e-01 -2.354736e-01
## [24,] -0.06719059 -1.083010e-01 -1.529605e-01 -1.997510e-01 -2.473019e-01
## [25,] -0.06658958 -1.093656e-01 -1.557622e-01 -2.043212e-01 -2.536331e-01
## [26,] -0.06658958 -1.093656e-01 -1.557622e-01 -2.043212e-01 -2.536331e-01
## [27,] -0.06719059 -1.083010e-01 -1.529605e-01 -1.997510e-01 -2.473019e-01
## [28,] -0.06781174 -1.059429e-01 -1.474854e-01 -1.910951e-01 -2.354736e-01
## [29,] -0.06754861 -1.019441e-01 -1.395556e-01 -1.791370e-01 -2.194857e-01
## [30,] -0.06550968 -9.598366e-02 -1.294303e-01 -1.647157e-01 -2.007463e-01
## [31,] -0.06105131 -8.786734e-02 -1.173733e-01 -1.485535e-01 -1.804289e-01
## [32,] -0.05385587 -7.755972e-02 -1.036389e-01 -1.311963e-01 -1.593668e-01
## [33,] -0.04389839 -6.516829e-02 -8.847327e-02 -1.130315e-01 -1.380888e-01
## [34,] -0.03136971 -5.090830e-02 -7.212140e-02 -9.433798e-02 -1.169095e-01
## [35,] -0.01660000 -3.506762e-02 -5.483390e-02 -7.533331e-02 -9.601739e-02
## [36,]  0.00000000 -1.797894e-02 -3.687040e-02 -5.620892e-02 -7.554046e-02
## [37,]  0.01797894  0.000000e+00 -1.850010e-02 -3.715061e-02 -5.558636e-02
## [38,]  0.03687040  1.850010e-02  0.000000e+00 -1.834851e-02 -3.626380e-02
## [39,]  0.05620892  3.715061e-02  1.834851e-02  0.000000e+00 -1.769154e-02
## [40,]  0.07554046  5.558636e-02  3.626380e-02  1.769154e-02  0.000000e+00
## [41,]  0.09442967  7.345375e-02  5.346869e-02  3.452021e-02  1.667113e-02
## [42,]  0.11246546  9.041586e-02  6.969522e-02  5.028206e-02  3.217715e-02
## [43,]  0.12926572  1.061571e-01  8.468932e-02  6.477994e-02  4.637336e-02
## [44,]  0.14448148  1.203874e-01  9.821533e-02  7.782824e-02  5.912017e-02
## [45,]  0.15780062  1.328462e-01  1.100601e-01  8.925736e-02  7.028789e-02
## [46,]  0.16895131  1.433061e-01  1.200368e-01  9.891776e-02  7.976108e-02
## [47,]  0.17770499  1.515756e-01  1.279882e-01  1.066834e-01  8.744234e-02
## [48,]  0.18387882  1.575022e-01  1.337894e-01  1.124549e-01  9.325552e-02
## [49,]  0.18733774  1.609739e-01  1.373499e-01  1.161615e-01  9.714827e-02
## [50,]  0.18799572  1.619212e-01  1.386154e-01  1.177634e-01  9.909402e-02
##               [,41]         [,42]       [,43]         [,44]       [,45]
##  [1,]  8.238385e-02  6.745375e-02  0.05416258  4.239994e-02  0.03207916
##  [2,]  8.009676e-02  6.483717e-02  0.05123691  3.919338e-02  0.02862681
##  [3,]  7.599397e-02  6.051496e-02  0.04669898  3.445501e-02  0.02371343
##  [4,]  7.008969e-02  5.449004e-02  0.04054144  2.816833e-02  0.01731452
##  [5,]  6.241956e-02  4.678280e-02  0.03277095  2.032775e-02  0.00941371
##  [6,]  5.303843e-02  3.742876e-02  0.02340560  1.093584e-02  0.00000000
##  [7,]  4.201759e-02  2.647555e-02  0.01247173  3.469447e-17 -0.01093584
##  [8,]  2.944138e-02  1.397925e-02  0.00000000 -1.247173e-02 -0.02340560
##  [9,]  1.540302e-02  5.551115e-17 -0.01397925 -2.647555e-02 -0.03742876
## [10,]  1.110223e-16 -1.540302e-02 -0.02944138 -4.201759e-02 -0.05303843
## [11,] -1.667113e-02 -3.217715e-02 -0.04637336 -5.912017e-02 -0.07028789
## [12,] -3.452021e-02 -5.028206e-02 -0.06477994 -7.782824e-02 -0.08925736
## [13,] -5.346869e-02 -6.969522e-02 -0.08468932 -9.821533e-02 -0.11006012
## [14,] -7.345375e-02 -9.041586e-02 -0.10615708 -1.203874e-01 -0.13284620
## [15,] -9.442967e-02 -1.124655e-01 -0.12926572 -1.444815e-01 -0.15780062
## [16,] -1.163635e-01 -1.358808e-01 -0.15411555 -1.706548e-01 -0.18513025
## [17,] -1.392202e-01 -1.606939e-01 -0.18079941 -1.990546e-01 -0.21503018
## [18,] -1.629305e-01 -1.868892e-01 -0.20935052 -2.297576e-01 -0.24761532
## [19,] -1.873315e-01 -2.143266e-01 -0.23964880 -2.626616e-01 -0.28279887
## [20,] -2.120723e-01 -2.426191e-01 -0.27127331 -2.973143e-01 -0.32010152
## [21,] -2.364863e-01 -2.709688e-01 -0.30330383 -3.326850e-01 -0.35839538
## [22,] -2.594616e-01 -2.979997e-01 -0.33411923 -3.669309e-01 -0.39564398
## [23,] -2.793893e-01 -3.216906e-01 -0.36131635 -3.973040e-01 -0.42879712
## [24,] -2.943124e-01 -3.395653e-01 -0.38193848 -4.204135e-01 -0.45408396
## [25,] -3.023594e-01 -3.492473e-01 -0.39314148 -4.329932e-01 -0.46786880
## [26,] -3.023594e-01 -3.492473e-01 -0.39314148 -4.329932e-01 -0.46786880
## [27,] -2.943124e-01 -3.395653e-01 -0.38193848 -4.204135e-01 -0.45408396
## [28,] -2.793893e-01 -3.216906e-01 -0.36131635 -3.973040e-01 -0.42879712
## [29,] -2.594616e-01 -2.979997e-01 -0.33411923 -3.669309e-01 -0.39564398
## [30,] -2.364863e-01 -2.709688e-01 -0.30330383 -3.326850e-01 -0.35839538
## [31,] -2.120723e-01 -2.426191e-01 -0.27127331 -2.973143e-01 -0.32010152
## [32,] -1.873315e-01 -2.143266e-01 -0.23964880 -2.626616e-01 -0.28279887
## [33,] -1.629305e-01 -1.868892e-01 -0.20935052 -2.297576e-01 -0.24761532
## [34,] -1.392202e-01 -1.606939e-01 -0.18079941 -1.990546e-01 -0.21503018
## [35,] -1.163635e-01 -1.358808e-01 -0.15411555 -1.706548e-01 -0.18513025
## [36,] -9.442967e-02 -1.124655e-01 -0.12926572 -1.444815e-01 -0.15780062
## [37,] -7.345375e-02 -9.041586e-02 -0.10615708 -1.203874e-01 -0.13284620
## [38,] -5.346869e-02 -6.969522e-02 -0.08468932 -9.821533e-02 -0.11006012
## [39,] -3.452021e-02 -5.028206e-02 -0.06477994 -7.782824e-02 -0.08925736
## [40,] -1.667113e-02 -3.217715e-02 -0.04637336 -5.912017e-02 -0.07028789
## [41,]  0.000000e+00 -1.540302e-02 -0.02944138 -4.201759e-02 -0.05303843
## [42,]  1.540302e-02  0.000000e+00 -0.01397925 -2.647555e-02 -0.03742876
## [43,]  2.944138e-02  1.397925e-02  0.00000000 -1.247173e-02 -0.02340560
## [44,]  4.201759e-02  2.647555e-02  0.01247173  0.000000e+00 -0.01093584
## [45,]  5.303843e-02  3.742876e-02  0.02340560  1.093584e-02  0.00000000
## [46,]  6.241956e-02  4.678280e-02  0.03277095  2.032775e-02  0.00941371
## [47,]  7.008969e-02  5.449004e-02  0.04054144  2.816833e-02  0.01731452
## [48,]  7.599397e-02  6.051496e-02  0.04669898  3.445501e-02  0.02371343
## [49,]  8.009676e-02  6.483717e-02  0.05123691  3.919338e-02  0.02862681
## [50,]  8.238385e-02  6.745375e-02  0.05416258  4.239994e-02  0.03207916
##               [,46]         [,47]         [,48]         [,49]        [,50]
##  [1,]  2.313096e-02  1.549786e-02  9.129591e-03  3.979203e-03  0.000000000
##  [2,]  1.947390e-02  1.168223e-02  5.205574e-03  6.938894e-18 -0.003979203
##  [3,]  1.441967e-02  6.528631e-03  3.469447e-17 -5.205574e-03 -0.009129591
##  [4,]  7.936896e-03  1.387779e-17 -6.528631e-03 -1.168223e-02 -0.015497862
##  [5,]  5.551115e-17 -7.936896e-03 -1.441967e-02 -1.947390e-02 -0.023130959
##  [6,] -9.413710e-03 -1.731452e-02 -2.371343e-02 -2.862681e-02 -0.032079164
##  [7,] -2.032775e-02 -2.816833e-02 -3.445501e-02 -3.919338e-02 -0.042399937
##  [8,] -3.277095e-02 -4.054144e-02 -4.669898e-02 -5.123691e-02 -0.054162579
##  [9,] -4.678280e-02 -5.449004e-02 -6.051496e-02 -6.483717e-02 -0.067453752
## [10,] -6.241956e-02 -7.008969e-02 -7.599397e-02 -8.009676e-02 -0.082383847
## [11,] -7.976108e-02 -8.744234e-02 -9.325552e-02 -9.714827e-02 -0.099094019
## [12,] -9.891776e-02 -1.066834e-01 -1.124549e-01 -1.161615e-01 -0.117763403
## [13,] -1.200368e-01 -1.279882e-01 -1.337894e-01 -1.373499e-01 -0.138615441
## [14,] -1.433061e-01 -1.515756e-01 -1.575022e-01 -1.609739e-01 -0.161921207
## [15,] -1.689513e-01 -1.777050e-01 -1.838788e-01 -1.873377e-01 -0.187995724
## [16,] -1.972219e-01 -2.066605e-01 -2.132304e-01 -2.167715e-01 -0.217180273
## [17,] -2.283535e-01 -2.387113e-01 -2.458521e-01 -2.495887e-01 -0.249799027
## [18,] -2.624938e-01 -2.740319e-01 -2.819395e-01 -2.860003e-01 -0.286072369
## [19,] -2.995695e-01 -3.125608e-01 -3.214412e-01 -3.259631e-01 -0.325964037
## [20,] -3.390788e-01 -3.537791e-01 -3.638272e-01 -3.689427e-01 -0.368941778
## [21,] -3.798127e-01 -3.964140e-01 -4.077795e-01 -4.135956e-01 -0.413656826
## [22,] -4.195718e-01 -4.381373e-01 -4.508774e-01 -4.574465e-01 -0.457618440
## [23,] -4.550519e-01 -4.754434e-01 -4.894699e-01 -4.967575e-01 -0.497061934
## [24,] -4.821627e-01 -5.039880e-01 -5.190290e-01 -5.268903e-01 -0.527313681
## [25,] -4.969575e-01 -5.195775e-01 -5.351823e-01 -5.433644e-01 -0.543858425
## [26,] -4.969575e-01 -5.195775e-01 -5.351823e-01 -5.433644e-01 -0.543858425
## [27,] -4.821627e-01 -5.039880e-01 -5.190290e-01 -5.268903e-01 -0.527313681
## [28,] -4.550519e-01 -4.754434e-01 -4.894699e-01 -4.967575e-01 -0.497061934
## [29,] -4.195718e-01 -4.381373e-01 -4.508774e-01 -4.574465e-01 -0.457618440
## [30,] -3.798127e-01 -3.964140e-01 -4.077795e-01 -4.135956e-01 -0.413656826
## [31,] -3.390788e-01 -3.537791e-01 -3.638272e-01 -3.689427e-01 -0.368941778
## [32,] -2.995695e-01 -3.125608e-01 -3.214412e-01 -3.259631e-01 -0.325964037
## [33,] -2.624938e-01 -2.740319e-01 -2.819395e-01 -2.860003e-01 -0.286072369
## [34,] -2.283535e-01 -2.387113e-01 -2.458521e-01 -2.495887e-01 -0.249799027
## [35,] -1.972219e-01 -2.066605e-01 -2.132304e-01 -2.167715e-01 -0.217180273
## [36,] -1.689513e-01 -1.777050e-01 -1.838788e-01 -1.873377e-01 -0.187995724
## [37,] -1.433061e-01 -1.515756e-01 -1.575022e-01 -1.609739e-01 -0.161921207
## [38,] -1.200368e-01 -1.279882e-01 -1.337894e-01 -1.373499e-01 -0.138615441
## [39,] -9.891776e-02 -1.066834e-01 -1.124549e-01 -1.161615e-01 -0.117763403
## [40,] -7.976108e-02 -8.744234e-02 -9.325552e-02 -9.714827e-02 -0.099094019
## [41,] -6.241956e-02 -7.008969e-02 -7.599397e-02 -8.009676e-02 -0.082383847
## [42,] -4.678280e-02 -5.449004e-02 -6.051496e-02 -6.483717e-02 -0.067453752
## [43,] -3.277095e-02 -4.054144e-02 -4.669898e-02 -5.123691e-02 -0.054162579
## [44,] -2.032775e-02 -2.816833e-02 -3.445501e-02 -3.919338e-02 -0.042399937
## [45,] -9.413710e-03 -1.731452e-02 -2.371343e-02 -2.862681e-02 -0.032079164
## [46,]  0.000000e+00 -7.936896e-03 -1.441967e-02 -1.947390e-02 -0.023130959
## [47,]  7.936896e-03  0.000000e+00 -6.528631e-03 -1.168223e-02 -0.015497862
## [48,]  1.441967e-02  6.528631e-03  0.000000e+00 -5.205574e-03 -0.009129591
## [49,]  1.947390e-02  1.168223e-02  5.205574e-03  0.000000e+00 -0.003979203
## [50,]  2.313096e-02  1.549786e-02  9.129591e-03  3.979203e-03  0.000000000
contour(x,y,fa,nlevels=15)

par(oldpar)
image(x,y,f)

image(x,y,fa)

objects()
## [1] "f"        "fa"       "filepath" "mm"       "oldpar"   "w"       
## [7] "x"        "y"
rm(x,y,f,fa)
th<-seq(-pi,pi,len=100)
th
##   [1] -3.14159265 -3.07812614 -3.01465962 -2.95119310 -2.88772658
##   [6] -2.82426006 -2.76079354 -2.69732703 -2.63386051 -2.57039399
##  [11] -2.50692747 -2.44346095 -2.37999443 -2.31652792 -2.25306140
##  [16] -2.18959488 -2.12612836 -2.06266184 -1.99919533 -1.93572881
##  [21] -1.87226229 -1.80879577 -1.74532925 -1.68186273 -1.61839622
##  [26] -1.55492970 -1.49146318 -1.42799666 -1.36453014 -1.30106362
##  [31] -1.23759711 -1.17413059 -1.11066407 -1.04719755 -0.98373103
##  [36] -0.92026451 -0.85679800 -0.79333148 -0.72986496 -0.66639844
##  [41] -0.60293192 -0.53946541 -0.47599889 -0.41253237 -0.34906585
##  [46] -0.28559933 -0.22213281 -0.15866630 -0.09519978 -0.03173326
##  [51]  0.03173326  0.09519978  0.15866630  0.22213281  0.28559933
##  [56]  0.34906585  0.41253237  0.47599889  0.53946541  0.60293192
##  [61]  0.66639844  0.72986496  0.79333148  0.85679800  0.92026451
##  [66]  0.98373103  1.04719755  1.11066407  1.17413059  1.23759711
##  [71]  1.30106362  1.36453014  1.42799666  1.49146318  1.55492970
##  [76]  1.61839622  1.68186273  1.74532925  1.80879577  1.87226229
##  [81]  1.93572881  1.99919533  2.06266184  2.12612836  2.18959488
##  [86]  2.25306140  2.31652792  2.37999443  2.44346095  2.50692747
##  [91]  2.57039399  2.63386051  2.69732703  2.76079354  2.82426006
##  [96]  2.88772658  2.95119310  3.01465962  3.07812614  3.14159265
z<-exp(1i*th)
z
##   [1] -1.0000000-0.0000000i -0.9979867-0.0634239i -0.9919548-0.1265925i
##   [4] -0.9819287-0.1892512i -0.9679487-0.2511480i -0.9500711-0.3120334i
##   [7] -0.9283679-0.3716625i -0.9029265-0.4297949i -0.8738494-0.4861967i
##  [10] -0.8412535-0.5406408i -0.8052703-0.5929079i -0.7660444-0.6427876i
##  [13] -0.7237340-0.6900790i -0.6785094-0.7345917i -0.6305527-0.7761465i
##  [16] -0.5800569-0.8145760i -0.5272255-0.8497254i -0.4722711-0.8814534i
##  [19] -0.4154150-0.9096320i -0.3568862-0.9341479i -0.2969204-0.9549022i
##  [22] -0.2357589-0.9718116i -0.1736482-0.9848078i -0.1108382-0.9938385i
##  [25] -0.0475819-0.9988673i  0.0158660-0.9998741i  0.0792500-0.9968548i
##  [28]  0.1423148-0.9898214i  0.2048067-0.9788024i  0.2664738-0.9638422i
##  [31]  0.3270680-0.9450008i  0.3863451-0.9223543i  0.4440666-0.8959938i
##  [34]  0.5000000-0.8660254i  0.5539201-0.8325699i  0.6056097-0.7957618i
##  [37]  0.6548607-0.7557496i  0.7014749-0.7126942i  0.7452644-0.6667690i
##  [40]  0.7860531-0.6181590i  0.8236766-0.5670599i  0.8579834-0.5136774i
##  [43]  0.8888354-0.4582265i  0.9161085-0.4009305i  0.9396926-0.3420201i
##  [46]  0.9594930-0.2817326i  0.9754298-0.2203105i  0.9874389-0.1580014i
##  [49]  0.9954719-0.0950560i  0.9994965-0.0317279i  0.9994965+0.0317279i
##  [52]  0.9954719+0.0950560i  0.9874389+0.1580014i  0.9754298+0.2203105i
##  [55]  0.9594930+0.2817326i  0.9396926+0.3420201i  0.9161085+0.4009305i
##  [58]  0.8888354+0.4582265i  0.8579834+0.5136774i  0.8236766+0.5670599i
##  [61]  0.7860531+0.6181590i  0.7452644+0.6667690i  0.7014749+0.7126942i
##  [64]  0.6548607+0.7557496i  0.6056097+0.7957618i  0.5539201+0.8325699i
##  [67]  0.5000000+0.8660254i  0.4440666+0.8959938i  0.3863451+0.9223543i
##  [70]  0.3270680+0.9450008i  0.2664738+0.9638422i  0.2048067+0.9788024i
##  [73]  0.1423148+0.9898214i  0.0792500+0.9968548i  0.0158660+0.9998741i
##  [76] -0.0475819+0.9988673i -0.1108382+0.9938385i -0.1736482+0.9848078i
##  [79] -0.2357589+0.9718116i -0.2969204+0.9549022i -0.3568862+0.9341479i
##  [82] -0.4154150+0.9096320i -0.4722711+0.8814534i -0.5272255+0.8497254i
##  [85] -0.5800569+0.8145760i -0.6305527+0.7761465i -0.6785094+0.7345917i
##  [88] -0.7237340+0.6900790i -0.7660444+0.6427876i -0.8052703+0.5929079i
##  [91] -0.8412535+0.5406408i -0.8738494+0.4861967i -0.9029265+0.4297949i
##  [94] -0.9283679+0.3716625i -0.9500711+0.3120334i -0.9679487+0.2511480i
##  [97] -0.9819287+0.1892512i -0.9919548+0.1265925i -0.9979867+0.0634239i
## [100] -1.0000000+0.0000000i
par(pty="s")
plot(z, type="l")

w<-rnorm(100)+rnorm(100)*1i

w<-ifelse(Mod(w)>1, 1/w,w)
w
##   [1]  0.13450157+0.72398544i  0.23137428+0.84788307i
##   [3]  0.62498418-0.51455806i -0.29498318+0.84102271i
##   [5]  0.42179834-0.36582367i -0.54334083+0.62870970i
##   [7] -0.15201046+0.74867539i  0.37191824+0.65711635i
##   [9] -0.60982640-0.09571088i -0.01613116+0.00759155i
##  [11]  0.28138693+0.51724193i -0.39072720+0.21302064i
##  [13] -0.59964645-0.36498071i  0.42186715-0.70765399i
##  [15]  0.43558320+0.58101568i -0.12515653+0.83115547i
##  [17] -0.02196297+0.20936085i -0.57590173+0.03393710i
##  [19] -0.52316757-0.13373740i -0.10480404-0.55094945i
##  [21]  0.39779076-0.34606967i -0.11976174+0.62036200i
##  [23] -0.37201446-0.23107425i -0.41817671-0.37110540i
##  [25] -0.25683438-0.73026190i -0.16156501-0.94658942i
##  [27] -0.37105797+0.48493682i  0.43995999+0.46433653i
##  [29] -0.08089481+0.88535577i -0.58841531-0.34384722i
##  [31] -0.18174056-0.41005371i -0.15152606-0.93405359i
##  [33] -0.80462098-0.26765972i  0.52412358+0.13840711i
##  [35] -0.34086693-0.37697626i -0.43606149-0.12416914i
##  [37]  0.32009178-0.82407780i  0.01452694-0.44127231i
##  [39] -0.13718189+0.52666516i  0.10597904+0.61569632i
##  [41] -0.57411751-0.18879188i  0.48606828+0.68671620i
##  [43] -0.60176675+0.33090191i  0.12209497-0.42330724i
##  [45]  0.70362099-0.22116549i  0.72963818-0.33638184i
##  [47] -0.44873959+0.14914299i  0.62371255+0.45452633i
##  [49]  0.32611679-0.10211612i  0.43241208+0.37463936i
##  [51] -0.61054245+0.04640502i  0.38397716-0.61304860i
##  [53]  0.51611339-0.08822964i  0.77348647-0.43968562i
##  [55] -0.51191180-0.84488075i -0.48577203+0.22671975i
##  [57]  0.50329916+0.16980432i -0.28999912+0.74337360i
##  [59]  0.23462014+0.38131496i -0.09969927+0.52951210i
##  [61]  0.97727793-0.06085020i  0.22343262-0.26668081i
##  [63] -0.78812226-0.32437222i -0.30465225-0.64727129i
##  [65] -0.20703201-0.57419840i  0.77024978+0.19372866i
##  [67]  0.49735450+0.55975727i -0.66618495-0.00058683i
##  [69]  0.13125999-0.45329188i -0.40755100+0.51227115i
##  [71] -0.06826941-0.04463576i -0.49705830+0.33271368i
##  [73]  0.66253290+0.58436037i  0.51706348+0.56580188i
##  [75] -0.55711542-0.22227417i -0.97245527-0.06531079i
##  [77] -0.96922364+0.12867859i -0.13111825+0.51437769i
##  [79]  0.10514963+0.61817600i -0.19373355+0.91636514i
##  [81] -0.12780788-0.37041035i -0.04265817-0.80969147i
##  [83]  0.39170395-0.80973861i  0.42615283+0.09107968i
##  [85] -0.87634540+0.01770735i -0.32844702-0.93850424i
##  [87] -0.02696585+0.23576794i  0.12578834-0.51280869i
##  [89]  0.02912805+0.79576825i  0.44935203+0.79732266i
##  [91] -0.63840307+0.14707794i -0.39655036+0.33040575i
##  [93] -0.34739738+0.10306185i  0.20820610-0.62250404i
##  [95]  0.75538301+0.20059767i  0.16373970+0.67348389i
##  [97]  0.95328744-0.28521037i  0.64393405-0.70745873i
##  [99] -0.82819384-0.44509900i  0.83033819+0.04111753i
plot(w,xlim=c(-1,1), ylim=c(-1,1), pch="+", xlab="x", ylab="y")
lines(z)

w<-sqrt(runif(100))*exp(2*pi*runif(100)*1i)

plot(w,xlim=c(-1,1), ylim=c(-1,1), pch="+", xlab="x", ylab="y")
lines(z)

rm(th,w,z)

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.