About FriedEgg

FriedEgg · ‎05-14-2015

This issue is due to your file containing multiple concatenated certificates. You either need to extract each certificate to a separate file and then import or you can try using the following tool, which should be able to import the multiple certificates for you in one swoop. java-keyutil - Java Key Store (JKS) Utility - Google Project Hosting

FriedEgg · ‎05-11-2015

You have two distinct, but also related, issues. Your site's security it too strict to allow this program to run. ERROR: java.net.ConnectException: Connection timed out: connect This is most likely caused by your site requiring a proxy to access the open internet. You can do this by using the options available in PROC HTTP: proc http method = "get" url = "http://central.maven.org/maven2/org/apache/ivy/ivy/2.3.0-rc1/ivy-2.3.0-rc1.jar" out = ivy /* proxyhost="http://yourproxy.company.com" */ ; run; You may also need to define a username/password for the proxy. ERROR: PROC GROOVY is disabled when -noxcmd is specified. This one means that your SAS installation site has purposefully disabled this PROC as well as all other statements and functions that enable OS access. You would have to speak with your site's SAS administrator(s) about this.

FriedEgg · ‎05-05-2015

At this point I would have to recommend that you consult with the source of the certificate you are trying to import to find out from them what format they have provided you. Once you know that, you should be able to use openssl to convert it to a version compatible with the java keytool.

FriedEgg · ‎05-04-2015

, Open your crt file in a text editor and remove anything outside the -----BEGIN CERTIFICATE----- BLAH -----END CERTIFICATE----- And then try to load the file to the keytool again.

FriedEgg · ‎05-03-2015

Try running just the following: keytool -printcert -file cacerts.crt or, get the openssl binary https://www.openssl.org/related/binaries.html and try the following: openssl x509 -in cacerts.crt -text -noout or (if that doesn't work) openssl x509 -in cacerts.crt -inform der -text -noout

FriedEgg · ‎04-28-2015

You have a keep data set option which is dropping Date_15. There is nothing wrong with your intnx function call (beside the DT prefix being redundant)

FriedEgg · ‎04-28-2015

Here is an alternative using pretty much the same regular expression as used, data _null_; attrib logname informat=$22. logdt informat=b8601dt19.; declare hash l(ordered:'y'); l.defineKey('logdt'); l.defineData('logname', 'logdt'); l.defineDone(); infile cards eof=done; do while(1); input logname @; _infile_ = prxchange('s#^.*(\d{8})_(\d{2})\.(\d{2})\.log.*$#\1T\2\30000000#o', 1, _infile_); input @1 logdt ?; l.add(); end; done: l.output(dataset:'foo'); stop; cards; ABC_20150402_12.31.log DEF_20150401_23.12.log New_20150312_06.00.log ; run; ^.*(\d{8})_(\d{2})\.(\d{2})\.log.*$ Options: ^ and $ match at line breaks Assert position at the beginning of a line (at beginning of the string or after a line break character) «^» Match any single character that is not a line break character «.*» Between zero and unlimited times, as many times as possible, giving back as needed (greedy) «*» Match the regular expression below and capture its match into backreference number 1 «(\d{8})» Match a single digit 0..9 «\d{8}» Exactly 8 times «{8}» Match the character “_” literally «_» Match the regular expression below and capture its match into backreference number 2 «(\d{2})» Match a single digit 0..9 «\d{2}» Exactly 2 times «{2}» Match the character “.” literally «\.» Match the regular expression below and capture its match into backreference number 3 «(\d{2})» Match a single digit 0..9 «\d{2}» Exactly 2 times «{2}» Match the character “.” literally «\.» Match the characters “log” literally «log» Match any single character that is not a line break character «.*» Between zero and unlimited times, as many times as possible, giving back as needed (greedy) «*» Assert position at the end of a line (at the end of the string or before a line break character) «$»

FriedEgg · ‎04-24-2015

Yes, but this is the main factor (I think) behind why your code is running considerably longer. Since R will most likely stop far before it reaches the maximum iterations. I am not going to speak to the validity of the following as a stopping criteria, but checking the value of sum_wtx_sq against it's lag for no change is valid for at least this test. I made a few minor edits to you code, below, but nothing that makes any real change to the algorithm (beyond adding the stopping criteria I mention above). data coord_descent; array x_[&nobs.,0:&numvars.] _temporary_; array y_[&nobs.] _temporary_; /* cast data set to arrays x[i,j], y*/ retain x0-x&numvars.; _adr1=addrlong(x0); do _n_=1 to &nobs.; set work.diabetes_stnd_array2; y_[_n_]=y_gt140; call pokelong( peekclong(_adr1), addrlong(x_[_n_,0]), %eval(8*%eval(&numvars.+1)) ); end; array p_[0:&numvars.]; _adr2=addrlong(p_[0]); _ones=repeat(put(1, rb8.), &numvars.); array parm_unstnd_[0:&numvars.]; _adr3=addrlong(parm_unstnd_[0]); _zero=repeat(put(0, rb8.), &numvars.); array mean_[0:&numvars.] _temporary_ (%meanlist); array std_[0:&numvars.] _temporary_ (%stdlist); do alpha=&alpha_list.; do lambda=&lambda_list.; gamma = alpha*lambda; call pokelong( _ones, _adr2, %eval(8*%eval(&numvars.+1)) ); call pokelong( _zero, _adr3, %eval(8*%eval(&numvars.+1)) ); do i=1 to &numiter. until (lag(sum_wtx_sq) eq sum_wtx_sq); do j=0 to &numvars.; z = 0; sum_wtx_sq = 0; do _n_=1 to &nobs.; yhat = p_[0]; do k=1 to &numvars.; yhat = sum(yhat, p_ *x_[_n_, k]); end; proby = 1/(1 + exp(-yhat)); if 0.00001 <= proby >= 0.99999 then do; proby = round(proby, 1); weight = 0.00001; end; else weight = proby*(1 - proby); z = sum(z, (x_[_n_,j]*(y_[_n_] - proby) + weight*p_ *(x_[_n_,j])**2)); sum_wtx_sq = sum(sum_wtx_sq, weight*(x_[_n_,j])**2); end; *endLoop: _n_= [nobs]; if j>0 then do; if gamma<abs(z/&nobs.) then do; if z>0 then p_ = (z/&nobs. - gamma); else p_ = (z/&nobs. + gamma); p_ = p_ /(sum_wtx_sq/&nobs. + lambda - gamma); end; else p_ =0; end; else p_ = z/sum_wtx_sq; end; *endLoop: j= [numvars]; end; *endLoop: i= [numiter]; parm_unstnd_[0] = p_[0]; do _n_=1 to &numvars.; parm_unstnd_[0] = parm_unstnd_[0] - ((p_[_n_]*mean_[_n_])/std_[_n_]); parm_unstnd_[_n_] = p_[_n_]/std_[_n_]; end; output; put "Final parm_unstnd_ =" parm_unstnd_ ; end; *endLoop: lambda= [lambda_list]; end; *endLoop: alpha= [alpha_list]; keep alpha lambda parm_unstnd_:; stop; run; Final parm_unstnd_ =-6.968638061 0 0.0910300569 0.0147581702 0 0 -0.013146089 0 0.8256638121 0 0 NOTE: There were 442 observations read from the data set WORK.DIABETES_STND_ARRAY2. NOTE: The data set WORK.COORD_DESCENT has 1 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.06 seconds cpu time 0.05 seconds R: library("glmnet") set.seed(20) foo <- read.table("http://www4.stat.ncsu.edu/~boos/var.select/diabetes.tab.txt", header=TRUE, sep="\t", strip.white=TRUE) x <- as.matrix(foo[1:10]) y <- ifelse(foo$Y > 140, 1, 0) system.time(bar <- glmnet(x, y, family = "binomial", alpha = 0.5) ) user system elapsed 0.03 0.00 0.03 print(coef(bar, s=0.1)) 11 x 1 sparse Matrix of class "dgCMatrix" 1 (Intercept) -6.97872002 AGE . SEX . BMI 0.09119253 BP 0.01478218 S1 . S2 . S3 -0.01316737 S4 . S5 0.82665323 S6 .

FriedEgg · ‎04-24-2015

You are missing any stopping criteria for the coordinate decent algorithm to stop iterating when it has converged for a given lambda.

FriedEgg · ‎04-23-2015

The return codes are not documented, to my knowledge. An appropriate error message should be displayed if you exclude the rc=, if it behaves like the hash object in non-ds2 data step. For the `first` method basic meaning is: RC=0 = success, RC ≠ 0 = failure.

FriedEgg · ‎04-23-2015

(listfiles=yes) If I remember correctly. EDIT: Yep, it is a data set option, which is probably why you had difficulty finding it. SAS(R) 9.2 Scalable Performance Data Engine: Reference Message was edited by: FriedEgg

FriedEgg · ‎04-22-2015

your specific issue is that you are not declaring the hash with a valid syntax (you are missing a definition for hashexp), apparently this does not cause any kind of error to be produced, you just get a empty hash. SAS(R) 9.4 DS2 Language Reference, Fourth Edition Form 1: DECLARE PACKAGE HASH variable ( ); Form 2: DECLARE PACKAGE HASH variable (hashexp, {'datasource' | '\{sql-text\}'}, 'ordered', 'duplicate ', 'suminc', 'multidata'); Form 3: DECLARE PACKAGE HASH variable ( \[keys\], \[data\], [hashexp, {'datasource' | '\{sql-text\}'}, 'ordered', 'duplicate ', 'suminc', 'multidata']); Form 4: DECLARE PACKAGE HASH variable ( \[keys\], [hashexp, {'datasource' | '\{sql-text\}'}, 'ordered', 'duplicate ', 'suminc', 'multidata']);

FriedEgg · ‎04-22-2015

data class; set sashelp.class; run; data altclass; set sashelp.class; run; proc ds2; data foo (overwrite=yes); dcl nchar(32) altname; dcl package hash h(8, '{SELECT name as altname FROM altclass}'); dcl package hiter hi('h'); method init(); dcl double rc; rc = h.defineKey('altname'); rc = h.defineData('altname'); rc = h.defineDone(); end; method run(); dcl double rc; set class; rc = hi.first(); do while(rc=0); output; rc = hi.next(); end; end; enddata; run; quit;

FriedEgg · ‎04-15-2015

Okay Art, I will change it slightly to make it more efficient by breaking apart second prx into two, and why not, lets write it in ds2 also: 2083 data x.have (drop=i); 2084 input string $40.; 2085 do i=1to 1e6; 2086 output; 2087 end; 2088 cards; NOTE: The data set X.HAVE has 4000000 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.14 seconds cpu time 0.14 seconds 2093 ; 2094 run; 2095 2096 data want_fe; 2097 set x.have; 2098 array v[14] $ 2; 2099 v1 = scan(string, 1, ','); 2100 v2 = ','; 2101 bar = scan(string, 2, ','); 2102 bar = prxchange('s/([a-z])([a-z])/\11\2/io', -1, bar); 2103 bar = prxchange('s/([a-z]+)(?!\s)/\1_/io', -1, bar); 2104 bar = prxchange('s/([0-9]+)/\1_/o', -1, bar); 2105 do i=3 to dim(v) by 1 while(1); 2106 v=scan(bar, i-2, '_'); 2107 if missing(v) then leave; 2108 end; 2109 keep v:; 2110 run; NOTE: There were 4000000 observations read from the data set X.HAVE. NOTE: The data set WORK.WANT_FE has 4000000 observations and 14 variables. NOTE: DATA statement used (Total process time): real time 15.04 seconds cpu time 15.06 seconds 2111 2112 data want_art (drop=string i); 2113 set x.have; 2114 string=prxchange('s/([0-9])([,A-Za-z])/$1_$2/', -1, STRING); 2115 string=prxchange('s/(,)([0-9A-Za-z])/$1_$2/', -1, STRING); 2116 string=prxchange('s/([0-9A-Za-z])(,)/$1_$2/', -1, STRING); 2117 string=prxchange('s/([A-Za-z])([0-9])/$1_$2/', -1, STRING); 2118 string=prxchange('s/([A-Za-z])([A-Za-z])/$1_1_$2/', -1, STRING); 2119 array var(14) $; NOTE: The array var has the same name as a SAS-supplied or user-defined function. Parentheses following this name are treated as array references and not function references. 2120 i=1; 2121 do while(scan(string,i,'_') ne ''); 2122 var(i)=scan(string,i,'_'); 2123 i+1; 2124 end; 2125 run; NOTE: There were 4000000 observations read from the data set X.HAVE. NOTE: The data set WORK.WANT_ART has 4000000 observations and 14 variables. NOTE: DATA statement used (Total process time): real time 20.46 seconds cpu time 20.39 seconds 2126 2127 proc ds2; 2128 2129 thread break_string / overwrite=yes; 2130 vararray nchar(2) v[14]; 2131 keep v:; 2132 method run(); 2133 declare nchar(32) foo; 2134 declare int i; 2135 set x.have; 2136 v[1]=scan(string, 1, ','); 2137 v[2]=','; 2138 foo=scan(string, 2, ','); 2139 foo=prxchange('s/([a-z])([a-z])/\11\2/io', -1, foo); 2140 foo=prxchange('s/([a-z]+)(?!\s)/\1_/io', -1, foo); 2141 foo=prxchange('s/([0-9]+)/\1_/o', -1, foo); 2142 do i=3 to dim(v); 2143 v=scan(foo, i-2, '_'); 2144 if missing(v) then leave; 2145 end; 2146 end; 2147 endthread; 2148 run; NOTE: Created thread break_string in data set work.break_string. NOTE: Execution succeeded. No rows affected. 2149 2150 data want_feds2 (overwrite=yes); 2151 declare thread break_string bsthread; 2152 method run(); 2153 set from bsthread threads=4; 2154 end; 2155 enddata; 2156 run; NOTE: BASE driver, creation of a NCHAR column has been requested, the table encoding is set to UTF-8. NOTE: Execution succeeded. 4000000 rows affected. 2157 2158 quit; NOTE: PROCEDURE DS2 used (Total process time): real time 5.11 seconds cpu time 20.57 seconds

FriedEgg · ‎04-15-2015

The hash definition variables accept scalar arguments,so using the macro variables is unnecessary. proc sql; create table class_sex as select distinct sex from sashelp.class; create table class_m as select * from sashelp.class where sex='M'; create table class_f as select * from sashelp.class where sex='F'; quit; data _null_; if 0 then set sashelp.class; declare hash myhash; set class_sex; dsn = cats('work.class_', sex, '(where=(sex=''', sex, '''))'); myhash = _new_ hash(dataset:dsn); myhash.definekey('name'); myhash.definedata('name', 'weight', 'height'); myhash.definedone(); myhash.output(dataset:'class_hash'); stop; run;

Online Status	Offline
Date Last Visited	‎03-20-2026 07:25 PM