/dports/science/afni/afni-AFNI_21.3.16/src/R_scripts/ |
H A D | 3dMVM.R | 1176 tryCatch(out[(lop$nFu+1):(lop$nFu+lop$GES*lop$nFu+lop$nFsc)] <- 1212 tryCatch(out[(lop$nFu+lop$nFsc+length(lop$mvtInd)+lop$nFm+1): 1213 (lop$nFu+lop$nFsc+length(lop$mvtInd)+lop$nFm+lop$nF_mvE5)] <- 1218 if(lop$GES) out[(lop$nF+1):(lop$nF+lop$nFu)] <- uvfm0[,'ges'] 1425 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=lop$qVarCenters, scale=F)[,collapse=T] 1545 lop$dataStr <- cbind(lop$dataStr, lop$dataStr[, lop$vQV[1]]) 1590 …lop$dataStr <- assVV(lop$dataStr, lop$vQV[1], inData[ii,jj,kk,(lop$NoFile+1):(lop$NoFile+lop$nSubj… 1717 if(lop$mvE5a | lop$mvE5) if(lop$afex_new) lop$nF_mvE5 <- lop$nFu/2 else 1719 lop$nF <- ifelse(lop$mvE5, lop$nF_mvE5, lop$nFu + lop$nFsc + nF_MVT + lop$nFm + lop$nF_mvE5) 1722 NoBrick <- lop$nF + lop$GES*lop$nF + 2*lop$num_glt + lop$num_glf [all …]
|
H A D | 3dMEMA.R | 65 if(lop$anaType==1 | lop$anaType==2 | lop$anaType==4) { 223 if(lop$nGrp==1) lop$xMat <- rep(1, sum(lop$nSubj)) 346 lop$covData <- cbind(lop$covData, lop$covData*lop$xMat[,2]) 354 if(dim(lop$covData)[1]==1) lop$covData <- t(lop$covData) 357 } else {lop$nCov <- 0; lop$xMat <- as.matrix(lop$xMat)} 1012 lop$nSubj <- c(lop$nSubj,length(lop$subjLab[[ii]])) 1043 if (lop$nLevel == 1 && lop$homo)lop$anaType <- 2 1071 if (lop$anaType==1 | lop$anaType==2 | lop$anaType==4) { 1193 if(lop$anaType==1 | lop$anaType==2 | lop$anaType==4) { 2288 nBrick <- 4*lop$nGrp+(anyCov)*2*lop$nCov+2*sum(lop$nSubj)*lop$resZout [all …]
|
H A D | 3dLME.R | 797 if(!is.na(lop$qVars)) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 928 glt <- gl_Constr(lop$num_glt, lop$gltCode, lop) 934 glf <- gl_Constr(lop$num_glf, lop$glfCode, lop) 1438 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=TRUE, scale=F)[,,drop=T] else 1439 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=lop$qVarCenters, scale=F)[,,drop=T] 1462 if(!lop$ICC | lop$ICCb) { 1489 if(lop$LOGIT) inData <- read.AFNI(lop$dataStr[,lop$vQV[1]][1], verb=lop$verb, meth=lop$iometh, forc… 1682 …lop$dataStr <- assVV2(lop$dataStr, lop$vQV, inData[ii,jj,kk,(nrow(lop$dataStr)+1):(2*nrow(lop$data… 1740 lop$Fseq <- 1:lop$nF 1991 …write.AFNI(lop$REprefix, Stat[,,,(lop$NoBrick+1):(lop$NoBrick+(!is.null(lop$REprefix))*nlevels(lop… [all …]
|
H A D | 3dLMEr.R | 670 if(!is.na(lop$qVars)) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 691 if(!is.na(lop$vVars[1])) for(jj in lop$vQV) lop$dataStr[,jj] <- as.character(lop$dataStr[,jj]) 882 if(is.null(lop <- process.LME.opts(lop, verb = lop$verb))) globalVar 904 names(lop$dataStr)[names(lop$dataStr)==lop$IF] <- 'InputFile' 914 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=TRUE, scale=F)[,,drop=T] else 915 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=lop$qVarCenters, scale=F)[,,drop=T] 940 inData <- read.AFNI(lop$dataStr[1, lop$IF], verb=lop$verb, meth=lop$iometh, forcedset = TRUE) 997 lop$dataStr <- cbind(lop$dataStr, lop$dataStr[, lop$vQV[1]]) 1043 …lop$dataStr <- assVV2(lop$dataStr, lop$vQV, inData[ii,jj,kk,(nrow(lop$dataStr)+1):(2*nrow(lop$data… 1086 lop$NoBrick <- lop$nF + nT + lop$num_glf [all …]
|
H A D | MBA.R | 679 if(is.null(lop <- process.MBA.opts(lop, verb = lop$verb))) globalVar 697 names(lop$dataTable)[names(lop$dataTable)==lop$Subj] <- 'Subj' 698 names(lop$dataTable)[names(lop$dataTable)==lop$Y] <- 'Y' 699 names(lop$dataTable)[names(lop$dataTable)==lop$ROI1] <- 'ROI1' 700 names(lop$dataTable)[names(lop$dataTable)==lop$ROI2] <- 'ROI2' 753 lop$EOIq <- intersect(strsplit(lop$EOI, '\\,')[[1]], lop$EOIq) 786 if(lop$r2z) lop$dataTable$Y <- fisher(lop$dataTable$Y) 793 if(!is.null(lop$se)) names(lop$dataTable)[which(names(lop$dataTable)==lop$se)] <- 'se' 798 lop$dataTable$se <- lop$dataTable$Y/lop$dataTable[[lop$tstat]] 908 ns <- lop$iterations*lop$chains/2 [all …]
|
H A D | 3dMSS.R | 478 if(!is.na(lop$qVars)) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 481 if(lop$bounds[1] > lop$bounds[2]) 495 …if(!is.na(lop$qVars)) for(jj in lop$QV) lop$dataStr[,jj] <- as.numeric(as.character(lop$dataStr[,j… 511 … if(!is.na(lop$qVars)) for(jj in lop$QV) lop$Pred[,jj] <- as.numeric(as.character(lop$Pred[,jj])) 512 lop$nr <- nrow(lop$Pred) 521 lop$Pred <- lop$Pred[rep(seq_len(lop$nr), times=nlevels(lop$dataStr[, lop$vt[1]])), ] 522 lop$Pred[,lop$vt[1]] <- as.factor(rep(levels(lop$dataStr[,lop$vt[1]]), each = lop$nr)) 544 if(lop$nNodes < 1) lop$nNodes <- 1 722 if(is.null(lop <- process.MSS.opts(lop, verb = lop$verb))) globalVar 741 names(lop$dataStr)[names(lop$dataStr)==lop$IF] <- 'InputFile' [all …]
|
H A D | RBA.R | 696 if(is.null(lop <- process.RBA.opts(lop, verb = lop$verb))) globalVar 714 names(lop$dataTable)[names(lop$dataTable)==lop$Subj] <- 'Subj' 715 names(lop$dataTable)[names(lop$dataTable)==lop$Y] <- 'Y' 716 names(lop$dataTable)[names(lop$dataTable)==lop$ROI] <- 'ROI' 758 lop$EOIq <- intersect(strsplit(lop$EOI, '\\,')[[1]], lop$EOIq) 775 if(!is.null(lop$se)) names(lop$dataTable)[which(names(lop$dataTable)==lop$se)] <- 'se' 780 lop$dataTable$se <- lop$dataTable$Y/lop$dataTable[[lop$tstat]] 800 if(lop$r2z) lop$dataTable$Y <- fisher(lop$dataTable$Y) 873 if(lop$scale!=1) lop$dataTable$Y <- (lop$dataTable$Y)*lop$scale 1197 if(any(!is.na(lop$PDP) == TRUE)) plotPDP(lop$EOIq[ii], ps0, nR, lop$PDP[1], lop$PDP[2], 8) [all …]
|
H A D | 3dICC.R | 485 if(!is.na(lop$qVars)) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 489 if(lop$bounds[1] > lop$bounds[2]) 533 if(lop$nNodes < 1) lop$nNodes <- 1 645 if(is.null(lop <- process.ICC.opts(lop, verb = lop$verb))) globalVar 670 names(lop$dataStr)[names(lop$dataStr)==lop$Subj] <- 'Subj' 671 names(lop$dataStr)[names(lop$dataStr)==lop$IF] <- 'InputFile' 672 names(lop$dataStr)[names(lop$dataStr)==lop$tStat] <- 'Tstat' 681 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=TRUE, scale=F)[,,drop=T] else 682 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=lop$qVarCenters, scale=F)[,,drop=T] 727 inData <- read.AFNI(lop$dataStr[1, lop$IF], verb=lop$verb, meth=lop$iometh, forcedset = TRUE) [all …]
|
H A D | 3dISC.R | 692 if(!is.na(lop$qVars)) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 708 …if(!is.na(lop$qVars)) for(jj in lop$QV) lop$dataStr[,jj] <- as.numeric(as.character(lop$dataStr[,j… 717 if(!is.null(lop$resid)) lop$resid <- paste(lop$resid, "+tlrc", sep="") 735 if(lop$nNodes < 1) lop$nNodes <- 1 864 if(is.null(lop <- process.ISC.opts(lop, verb = lop$verb))) globalVar 890 names(lop$dataStr)[names(lop$dataStr)==lop$IF] <- 'InputFile' 901 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=TRUE, scale=F)[,,drop=T] else 902 lop$dataStr[,lop$QV] <- scale(lop$dataStr[,lop$QV], center=lop$qVarCenters, scale=F)[,,drop=T] 972 inData <- read.AFNI(lop$dataStr[1, lop$IF], verb=lop$verb, meth=lop$iometh, forcedset = TRUE) 1034 …lop$dataStr <- cbind(lop$dataStr, lop$dataStr[, lop$vQV[1]]) … [all …]
|
H A D | TRR.R | 553 if(!is.na(lop$qVars[1])) lop$QV <- strsplit(lop$qVars, '\\,')[[1]] 556 if(lop$chains < 1) lop$chains <- 1 598 if(is.null(lop <- process.TRR.opts(lop, verb = lop$verb))) globalVar 616 names(lop$dataTable)[names(lop$dataTable)==lop$subject] <- 'subj' 617 names(lop$dataTable)[names(lop$dataTable)==lop$Y] <- 'Y' 618 names(lop$dataTable)[names(lop$dataTable)==lop$repetition] <- 'rep' 619 names(lop$dataTable)[names(lop$dataTable)==lop$condiiton] <- 'cond' 631 outDF(str(lop$dataTable), lop$outFN) 676 if(!is.null(lop$se)) names(lop$dataTable)[which(names(lop$dataTable)==lop$se)] <- 'se' 681 lop$dataTable$se <- lop$dataTable$Y/lop$dataTable[[lop$tstat]] [all …]
|
H A D | 1dRplot.R | 300 return(lop) 594 save = {lop$prefix <- ops[[i]]; lop$nodisp=TRUE;} , 647 other = lop <- parse.1dRplot.other(ops[[i]], lop), 654 return(lop) 659 return(lop) 701 if (is.null(lop$verb) || is.na(lop$verb)) lop$verb <- 0 703 if (is.null(lop <- process.1dRplot.opts(lop, verb = lop$verb))) { globalVar 709 str(lop); 712 thisplot <- plot.1D( dmat = lop$dmat, dmat.err=lop$dmat.err, 714 dmat.TR = lop$dmat.TR, dmat.type = lop$dmat.type, [all …]
|
H A D | 3dMEPFM.R | 849 lop$datasets <- c(lop$datasets,lop$input[2*(iter_input-1)+1]) 850 lop$TEs <- c(lop$TEs,lop$input[2*iter_input]) 853 lop$idx_order_TEs <- lop$TEs$ix 854 lop$TEs <- lop$TEs$x 884 …idset <- read.AFNI(lop$datasets[lop$idx_order_TEs[iter_input]], verb = max(0,lop$verb-1), meth=lop… 926 if ((substr(lop$input[1],nchar(lop$input[1])-2,nchar(lop$input[1]))==".1D") || 927 (substr(lop$input[1],nchar(lop$input[1])-4,nchar(lop$input[1]))==".1D\'")){ 955 mdset <- read.AFNI(lop$mask, verb = max(lop$verb-1), meth=lop$iometh) 976 if ( (is.null(lop$hrf)) && (is.null(lop$idx_hrf)) && (is.null(lop$vol_hrfs)) ) {lop$hrf <- 'GAM'} 981 if ((substr(lop$hrf,nchar(lop$hrf)-2,nchar(lop$hrf))==".1D") || [all …]
|
H A D | 3dSignatures.R | 97 lop <- list() list 109 lop$verb=0; 121 return(lop) 355 if (lop$svmscale != FALSE && lop$svmscale != TRUE) { 365 if (!is.null(lop$odir) && !file_test('-d', lop$odir)) { 378 lop$thiskeyset <- labelkey.labeltable(lop$thislabset, lop$labeltablefile) 390 if (!is.null(lop$Tset) && length(lop$Tset) > 1) { 404 if (!is.null(lop$tset) && length(lop$tset) > 1) { 419 if (lop$method == 'svm' || lop$method == 'SVM') { 961 if (is.null(lop <- process.SigsClassify.opts(lop, verb = lop$verb))) { globalVar [all …]
|
H A D | 3dPFM.R | 2183 idset <- read.AFNI(lop$input[1], verb = max(0,lop$verb-1), meth=lop$iometh) 2188 (substr(lop$input[1],nchar(lop$input[1])-4,nchar(lop$input[1]))==".1D\'")){ 2225 mdset <- read.AFNI(lop$mask, verb = max(lop$verb-1), meth=lop$iometh) 2248 if ( (is.null(lop$hrf)) && (is.null(lop$idx_hrf)) && (is.null(lop$vol_hrfs)) ) {lop$hrf <- 'GAM'} 2253 if ((substr(lop$hrf,nchar(lop$hrf)-2,nchar(lop$hrf))==".1D") || 2254 (substr(lop$hrf,nchar(lop$hrf)-4,nchar(lop$hrf))==".1D\'")) { 2329 if (!(substr(lop$hrf,nchar(lop$hrf)-2,nchar(lop$hrf))==".1D") && 2330 !(substr(lop$hrf,nchar(lop$hrf)-4,nchar(lop$hrf))==".1D\'")) { 2354 if ((substr(lop$hrf,nchar(lop$hrf)-2,nchar(lop$hrf))==".1D") || 2355 (substr(lop$hrf,nchar(lop$hrf)-3,nchar(lop$hrf))==".1D\'")) { [all …]
|
H A D | 3dRprogDemo.R | 200 lop$verb <- 0 202 lop$scale <- 6 210 input = lop$input <- c(lop$input, ops[[i]]), 227 str(lop) 236 return(lop) 293 str(lop); 299 if (lop$verb) { 303 idset <- read.AFNI(lop$input[iin], verb = max(0,lop$verb-1), meth=lop$iometh) 316 mdset <- read.AFNI(lop$mask, verb = max(lop$verb-1), meth=lop$iometh) 320 lop$mask, lop$input[iin])); [all …]
|
H A D | PTA.R | 284 lop$verb=0 285 return(lop) 293 return(lop) 441 if (is.null(lop$pprefix)) lop$interactive <- TRUE else 911 if (is.null(lop <- process.PTA.opts(lop, verb = lop$verb))) { globalVar 916 str(lop); 935 lop$model <- as.formula(paste0(lop$Y, '~', lop$model)) 937 if(is.null(lop$vt)) lop$Pred <- lop$prediction else { 938 lop$Pred <- lop$prediction[rep(seq_len(nr), times=nlevels(lop$dat[, lop$vt[1]])), ] 939 lop$Pred[,lop$vt[1]] <- as.factor(rep(levels(lop$dat[,lop$vt[1]]), each = nr)) [all …]
|
/dports/devel/py-lazy-object-proxy/lazy-object-proxy-1.6.0/tests/ |
H A D | test_lazy_object_proxy.py | 38 def test_round(lop): argument 882 def test_int(lop): argument 897 def test_add(lop): argument 906 def test_sub(lop): argument 915 def test_mul(lop): argument 924 def test_div(lop): argument 1020 def test_or(lop): argument 1689 a = lop.Proxy.__new__(lop.Proxy) 1690 b = lop.Proxy.__new__(lop.Proxy) 1698 obj = lop.Proxy.__new__(lop.Proxy) [all …]
|
H A D | test_async_py3.py | 69 def test_gen_1(lop): argument 75 def test_func_1(lop): argument 79 f = lop.Proxy(foo) 94 def test_func_2(lop): argument 102 def test_func_3(lop): argument 111 def test_func_4(lop): argument 141 def test_func_5(lop): argument 165 def test_func_6(lop): argument 582 … return (await lop.Proxy(bar) + await lop.Proxy(wrap)() + await lop.Proxy(lambda: db['b']()()()) + 676 return await lop.Proxy(lambda: Wrapper(lop.Proxy(coro1))) [all …]
|
/dports/math/dune-pdelab/dune-pdelab-20c7085389d3eb4f8ca99e1bc60f7fa6036536c8/dune/pdelab/localoperator/ |
H A D | callswitch.hh | 74 ( const LOP& lop, in pattern_volume_post_skeleton() 204 return lop.skip_entity(eg); in skip_entity() 224 ( const LOP& lop, in pattern_volume_post_skeleton() 282 lop.lambda_volume(eg,lfsv,r); in lambda_volume() 299 lop.lambda_boundary(ig,lfsv,r); in lambda_boundary() 416 skip_entity(lop, args...); in __anon113860e40202() 430 pattern_volume(lop, args...); in __anon113860e40402() 459 alpha_volume(lop, args...); in __anon113860e40802() 473 alpha_skeleton(lop, args...); in __anon113860e40a02() 480 alpha_boundary(lop, args...); in __anon113860e40b02() [all …]
|
/dports/textproc/metauml/ |
H A D | lop | 9 echo "<!-- MetaUML Library of Patterns -->" > lop.html 11 echo "<body>" >> lop.html 12 echo "<h1>MetaUML Library of Patterns</h1>" >> lop.html 13 echo "<h2>UML for LaTeX/MetaPost</h2>" >> lop.html 17 echo "\documentclass{article}" >lop.tex 19 echo "\\title{MetaUML Library of Patterns}" >> lop.tex 20 echo "\\author{Radu-George Radulescu and Ovidiu Gheorghies}" >> lop.tex 21 echo "\\begin{document} \maketitle" >> lop.tex 45 echo "</body></html>" >> lop.html 46 echo "\end{document}" >> lop.tex [all …]
|
/dports/print/ghostscript8-x11/ghostscript-8.71/base/ |
H A D | gsropt.h | 153 #define lop_rop(lop) ((gs_rop3_t)((lop) & 0xff)) /* must be low-order bits */ argument 168 #define lop_uses_S(lop)\ argument 169 (rop3_uses_S(lop) || ((lop) & (lop_S_transparent | lop_T_transparent))) 171 #define lop_uses_S(lop)\ argument 172 (rop3_uses_S(lop) || ((lop) & lop_S_transparent)) 174 #define lop_uses_T(lop)\ argument 175 (rop3_uses_T(lop) || ((lop) & lop_T_transparent)) 182 #define lop_is_idempotent(lop) (rop3_is_idempotent(lop) && !(lop & lop_pdf14)) argument 188 #define lop_know_S_0(lop)\ argument 193 (lop & lop_S_transparent ? rop3_D : rop3_know_S_1(lop)) [all …]
|
/dports/print/ghostscript7-base/ghostscript-7.07/src/ |
H A D | gsropt.h | 158 #define lop_rop(lop) ((gs_rop3_t)((lop) & 0xff)) /* must be low-order bits */ argument 173 #define lop_uses_S(lop)\ argument 174 (rop3_uses_S(lop) || ((lop) & (lop_S_transparent | lop_T_transparent))) 176 #define lop_uses_S(lop)\ argument 177 (rop3_uses_S(lop) || ((lop) & lop_S_transparent)) 179 #define lop_uses_T(lop)\ argument 180 (rop3_uses_T(lop) || ((lop) & lop_T_transparent)) 187 #define lop_is_idempotent(lop) (rop3_is_idempotent(lop) && !(lop & lop_pdf14)) argument 193 #define lop_know_S_0(lop)\ argument 198 (lop & lop_S_transparent ? rop3_D : rop3_know_S_1(lop)) [all …]
|
/dports/print/ghostscript8-base/ghostscript-8.71/base/ |
H A D | gsropt.h | 153 #define lop_rop(lop) ((gs_rop3_t)((lop) & 0xff)) /* must be low-order bits */ argument 168 #define lop_uses_S(lop)\ argument 169 (rop3_uses_S(lop) || ((lop) & (lop_S_transparent | lop_T_transparent))) 171 #define lop_uses_S(lop)\ argument 172 (rop3_uses_S(lop) || ((lop) & lop_S_transparent)) 174 #define lop_uses_T(lop)\ argument 175 (rop3_uses_T(lop) || ((lop) & lop_T_transparent)) 182 #define lop_is_idempotent(lop) (rop3_is_idempotent(lop) && !(lop & lop_pdf14)) argument 188 #define lop_know_S_0(lop)\ argument 193 (lop & lop_S_transparent ? rop3_D : rop3_know_S_1(lop)) [all …]
|
/dports/print/ghostscript7-x11/ghostscript-7.07/src/ |
H A D | gsropt.h | 158 #define lop_rop(lop) ((gs_rop3_t)((lop) & 0xff)) /* must be low-order bits */ argument 173 #define lop_uses_S(lop)\ argument 174 (rop3_uses_S(lop) || ((lop) & (lop_S_transparent | lop_T_transparent))) 176 #define lop_uses_S(lop)\ argument 177 (rop3_uses_S(lop) || ((lop) & lop_S_transparent)) 179 #define lop_uses_T(lop)\ argument 180 (rop3_uses_T(lop) || ((lop) & lop_T_transparent)) 187 #define lop_is_idempotent(lop) (rop3_is_idempotent(lop) && !(lop & lop_pdf14)) argument 193 #define lop_know_S_0(lop)\ argument 198 (lop & lop_S_transparent ? rop3_D : rop3_know_S_1(lop)) [all …]
|
/dports/misc/lazyread/lazyread-2.0/ |
H A D | lazyread.c | 191 if (lop.want_color) in create_windows() 354 if (!lop.view_normal) in do_options() 362 if (!lop.special_word) in do_options() 484 lop.y = LINES - 2; in scroll_it() 485 if (lop.pos_changed) in scroll_it() 486 lop.y = lop.pos_changed; in scroll_it() 487 if ((lop.y > LINES - 2) || (lop.y < 1)) in scroll_it() 538 if (lop.case_change) in char_scroll() 540 if (lop.highlight) { in char_scroll() 601 if (lop.beep_ok) in highlight_word() [all …]
|