grid_view_part
grid_view_part(grid, part = 0.01, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...)
grid | |
---|---|
part | |
alpha | |
color_p | |
color_n | |
… |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (grid, part = 0.01, alpha = 1, color_p = PT.Color[["O"]], color_n = PT.Color[["N"]], ...) { npoints <- grid$ngridx * grid$ngridy * grid$ngridz#> Error: <text>:11:0: unexpected end of input #> 9: npoints <- grid$ngridx * grid$ngridy * grid$ngridz #> 10: #> ^# NOT RUN { # }ivalue <- 1 for (igridx in 1:grid$ngridx) { for (igridy in 1:grid$ngridy) { for (igridz in 1:grid$ngridz) { values[ivalue] <- abs(grid$val[igridx, igridy, igridz]) ivalue <- ivalue + 1 } } } svalues <- sort(values, decreasing = TRUE) level <- svalues[ceiling(npoints * part)] cat(sprintf("level=%g\n", level)) grid_view_level(grid, level, alpha, color_p, color_n, ...) }#> Error: <text>:15:3: unexpected '}' #> 14: grid_view_level(grid, level, alpha, color_p, color_n, ...) #> 15: } #> ^