[R] on parallel package.....

2023-01-08 Thread akshay kulkarni 
dear members,
I want to parallelize a scraping code. Is 
mclapply() and clusterApplyLB() similar in functionality? I read the 
documentation and noted that there is copious information on clusyterApplyLB(), 
but not much on mclapply (it just says that on Unix alikes mclapply "uses 
parallel oprations"). I have a AWS EC2 Linux instance. Can I substitute 
mclapply() for clusterApplyLB()? Where can I get more information on mclapply()?

any help will be greatly appreciated
Thanking you,
Yours sincerely,
AKSHAY M KULKARNI

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] free_port returning only one port...

2023-01-08 Thread akshay kulkarni 
dear Dan,
   Yes, i just read the documentation...Previously i was using 
it with RSelenium package and never got to know that the argument random 
defaulted to FALSE. I was just using it blindly...only now I got to know that 
you must set random = TRUE to get different values across invocations...
Thanks anyways...

Thanking you,
Yours sincerely
AKSHAY M KULKARNI


From: Daniel Nordlund 
Sent: Monday, January 9, 2023 1:35 AM
To: akshay kulkarni ; R help Mailing list 

Subject: Re: [R] free_port returning only one port...

On 1/8/2023 11:35 AM, akshay kulkarni wrote:
> Dear members,
>  I am using free_port from the netstat package, 
> but it is returning only one value:
>
>> library(netstat)
>> free_port()
> [1] 14415
>

 thousands of ports. What has gone wrong?
>
> thanking you,
> Yours sincerely,
> AKSHAY M KULKARNI
>
>[[alternative HTML version deleted]]
>
> __
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

I haven't used that function before, and I don't know what you
previously experienced, but if you set the parameter random=TRUE you
will get a different port on each invocation

free_port(random=TRUE)


Hope this is helpful,

Dan

--
Daniel Nordlund
Port Townsend, WA  USA


--
This email has been checked for viruses by Avast antivirus software.
www.avast.com

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] free_port returning only one port...

2023-01-08 Thread Daniel Nordlund 

On 1/8/2023 11:35 AM, akshay kulkarni wrote:

Dear members,
 I am using free_port from the netstat package, but 
it is returning only one value:


library(netstat)
free_port()

[1] 14415

This is occurring in both Linux and Windows. Previously it used to output 
thousands of ports. What has gone wrong?

thanking you,
Yours sincerely,
AKSHAY M KULKARNI

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


I haven't used that function before, and I don't know what you 
previously experienced, but if you set the parameter random=TRUE you 
will get a different port on each invocation


free_port(random=TRUE)


Hope this is helpful,

Dan

--
Daniel Nordlund
Port Townsend, WA  USA


--
This email has been checked for viruses by Avast antivirus software.
www.avast.com

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

[R] free_port returning only one port...

2023-01-08 Thread akshay kulkarni 
Dear members,
I am using free_port from the netstat package, but 
it is returning only one value:

> library(netstat)
> free_port()
[1] 14415

This is occurring in both Linux and Windows. Previously it used to output 
thousands of ports. What has gone wrong?

thanking you,
Yours sincerely,
AKSHAY M KULKARNI

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] getting information out of Rao test output

2023-01-08 Thread Rui Barradas 

Às 18:04 de 08/01/2023, Nick Wray escreveu:

Hello  I'm using the Rao Spacing test from the circular package on a series
of (circular) data vectors but I can't find a way of simply recording
whether the null is rejected or not for each vector in the series - the
test gives me an individual result but unlike with other tests in R (say
MannKendall or pettitt etc) I can't find a way of delving into the guts of
the output to extract either1)both the test statistic and critical value
or 2)the status of ejection or not of the null eg as T/F

I''ve tried various things including str(rao) and rao[[1]]
as.character(rao) etc

rao<-rao.spacing.test(pi_data,alpha=0.05) ## my input


  Rao's Spacing Test of Uniformity

Test Statistic = 169.6952
Level 0.05 critical value = 155.19
Reject null hypothesis of uniformity-- can't break this down

Des anyone know how I could do this?

Thanks, Nick Wray

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Hello,

This test returns a non-standard object, meaning, not an object of class 
"htest" and its print method creates and invisibly returns an object 
with the value you want.




library(circular)
#>
#> Attaching package: 'circular'
#> The following objects are masked from 'package:stats':
#>
#> sd, var

# data
x <- circular(runif(200, 0, 2*pi))
# run the test
test_result <- rao.spacing.test(x, alpha=0.1)
# save the print method result
print_result <- print(test_result)
#>
#>Rao's Spacing Test of Uniformity
#>
#> Test Statistic = 135.2864
#> Level 0.1 critical value = 140.06
#> Do not reject null hypothesis of uniformity
print_result$accepted
#> [1] TRUE



If you run

getAnywhere("print.rao.spacing.test")

you will see that the printing is made by a series of cat instructions 
so to get the TRUE/FALSE above you will need to print the result like above.


__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

[R] getting information out of Rao test output

2023-01-08 Thread Nick Wray 
Hello  I'm using the Rao Spacing test from the circular package on a series
of (circular) data vectors but I can't find a way of simply recording
whether the null is rejected or not for each vector in the series - the
test gives me an individual result but unlike with other tests in R (say
MannKendall or pettitt etc) I can't find a way of delving into the guts of
the output to extract either1)both the test statistic and critical value
or 2)the status of ejection or not of the null eg as T/F

I''ve tried various things including str(rao) and rao[[1]]
as.character(rao) etc

rao<-rao.spacing.test(pi_data,alpha=0.05) ## my input


 Rao's Spacing Test of Uniformity

Test Statistic = 169.6952
Level 0.05 critical value = 155.19
Reject null hypothesis of uniformity-- can't break this down

Des anyone know how I could do this?

Thanks, Nick Wray

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] extracting a table from pdf file....

2023-01-08 Thread akshay kulkarni 
Dear jeff,
  Thanks a lot

Thanking you,
Yours sincerely,
AKSHAY M KULKARNI

From: Jeff Newmiller 
Sent: Sunday, January 8, 2023 3:59 PM
To: r-help@r-project.org ; akshay kulkarni 
; R help Mailing list 
Subject: Re: [R] extracting a table from pdf file

Here is a start for two of them... PDF files are actually programs written in 
the Postscript language... there are a lot of ways to write a program to put 
marks on a page, so this mess is actually not as bad a result as you might have 
encountered.

str(IDTpdf)

DF <- IDTpdf[[1]][ -(1:2), ]
names( DF ) <- c( "SNo", "Scrip", "Symbol", "Leverage" )
DF$SNo <- as.integer( DF$SNo )
DF$Leverage <- as.numeric( DF$Leverage )
IDTpdf[[ 1 ]] <- DF

DF <- IDTpdf[[2]]
names( DF ) <- c( "SNo", "Scrip", "Symbol", "Leverage" )
DF <- rbind(
  data.frame(
SNo = 54
  , Symbol = "DIVISLAB"
  , Scrip = "DIVIS LABORATORIES LTD"
  , Leverage = 4.5
  )
, DF
)
IDTpdf[[ 2 ]] <- DF

do.call( rbind, IDTpdf[ 1:2 ] )

On January 8, 2023 12:59:58 AM PST, akshay kulkarni  
wrote:
>dear members,
>I am extracting a pdf table into a data frame from 
> this URL:
>
>https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf
>
>I am using extract_table() from the tabulizer package (it is archived and have 
>installed it from github)
>
>IDTpdf <- 
>extract_tables("https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf",output="data.frame";)
>
>But IDTpdf consists of four different dfs, and I want to collapse them into 
>one. The dput of IDTpdf:
>
>list(structure(list(SCRIPS.AVAILABLE.FOR.INTRADAY.WITH.LEVERAGES.PROVIDED.ON.THEM
> = c("S.No.",
>"times)", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
>"11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21",
>"22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32",
>"33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43",
>"44", "45", "46", "47", "48", "49", "50", "51", "52", "53"),
>X = c("Scrip Name", "", "ALKEM LABORATORIES LTD.", "ATUL LTD",
>"ABB INDIA LIMITED", "AARTI INDUSTRIES LTD", "ABBOTT INDIA LIMITED",
>"ADITYA BIRLA CAPITAL LTD.", "ADITYA BIRLA FASHION & RT",
>"ACC LIMITED", "ADANI ENTERPRISES LIMITED", "ADANI PORT & SEZ LTD",
>"AMARA RAJA BATTERIES LTD.", "ASTRAL LIMITED", "AMBUJA CEMENTS LTD",
>"ALEMBIC PHARMA LTD", "APOLLO HOSPITALS ENTER. L", "APOLLO TYRES LTD",
>"ASHOK LEYLAND LTD", "ASIAN PAINTS LIMITED", "AU SMALL FINANCE BANK LTD",
>"AUROBINDO PHARMA LTD", "AXIS BANK LIMITED", "BAJAJ AUTO LIMITED",
>"BAJAJ FINSERV LTD.", "BAJAJ FINANCE LIMITED", "BALRAMPUR CHINI MILLS LTD",
>"BANDHAN BANK LIMITED", "BANK OF BARODA", "BATA INDIA LTD",
>"BHARAT ELECTRONICS LTD", "BERGER PAINTS (I) LTD", "BHARTI AIRTEL LIMITED",
>"BHEL", "BIOCON LIMITED.", "BOSCH LIMITED", "BRITANNIA INDUSTRIES LTD",
>"BIRLASOFT LIMITED", "ZYDUS LIFESCIENCES LTD", "CANARA BANK",
>"CAN FIN HOMES LTD", "CHAMBAL FERTILIZERS LTD", "CHOLAMANDALAM IN & FIN 
> CO",
>"CIPLA LTD", "COAL INDIA LTD", "COFORGE LIMITED", "COLGATE PALMOLIVE LTD.",
>"CONTAINER CORP OF IND LTD", "COROMANDEL INTERNTL. LTD",
>"CROMPT GREA CON ELEC LTD", "CITY UNION BANK LTD", "CUMMINS INDIA LTD",
>"DABUR INDIA LTD", "DEEPAK NITRITE LTD", "DELTA CORP LIMITED"
>), X.1 = c("Symbol Series", "", "ALKEM", "ATUL", "ABB", "AARTIIND",
>"ABBOTINDIA", "ABCAPITAL", "ABFRL", "ACC", "ADANIENT", "ADANIPORTS",
>"AMARAJABAT", "ASTRAL", "AMBUJACEM", "APLLTD", "APOLLOHOSP",
>"APOLLOTYRE", "ASHOKLEY", "ASIANPAINT", "AUBANK", "AUROPHARMA",
>"AXISBANK", "BAJAJ-AUTO", "BAJAJFINSV", "BAJFINANCE", "BALRAMCHIN",
>"BANDHANBNK", "BANKBARODA", "BATAINDIA", "BEL", "BERGEPAINT",
>"BHARTIARTL", "BHEL", "BIOCON", "BOSCHLTD", "BRITANNIA",
>"BSOFT", "ZYDUSLIFE", "CANBK", "CANFINHOME", "CHAMBLFERT",
>"CHOLAFIN", "CIPLA", "COALINDIA", "COFORGE", "COLPAL", "CONCOR",
>"COROMANDEL", "CROMPTON", "CUB", "CUMMINSIND", "DABUR", "DEEPAKNTR",
>"DELTACORP"), X.2 = c("Leverage (in", "", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4.5", "4", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4", "4", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4", "4.5", "4.5", "4.5", "4", "4.5", "4", "4.5",
>"4", "4", "4.5", "4.5", "4", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4")), class = "data.frame", row.names = c(NA,
>-55L)), structure(list(X54 = 55:110, DIVI.S.LABORATORIES.LTD = c("DIXON TECHNO 
>(INDIA) LTD",
>"DLF LIMITED", "DR. REDDY S LABORATORIES", "ESCORTS INDIA LTD",
>"EXIDE INDUSTRIES LTD", "FEDERAL BANK LTD", "FIRSTSOURCE SOLU. LTD.",
>"GAIL (INDIA) LTD", "GLENMARK PHARMACEUTICALS", "GMR INFRASTRUCTURE LTD.",
>"GUJ NAR VAL FER & CHEM L", "DALMIA BHARAT LIMITED", "GODREJ CONSUMER 
>PRODUCTS",
>"GRANULES INDIA LIMITED", "GRASIM INDUSTRIES LTD", "GUJARAT STATE PETRO LTD",
>"GUJARAT GAS LIMITED", "HINDUST

Re: [R] extracting a table from pdf file....

2023-01-08 Thread Jeff Newmiller 
Here is a start for two of them... PDF files are actually programs written in 
the Postscript language... there are a lot of ways to write a program to put 
marks on a page, so this mess is actually not as bad a result as you might have 
encountered.

str(IDTpdf)

DF <- IDTpdf[[1]][ -(1:2), ]
names( DF ) <- c( "SNo", "Scrip", "Symbol", "Leverage" )
DF$SNo <- as.integer( DF$SNo )
DF$Leverage <- as.numeric( DF$Leverage )
IDTpdf[[ 1 ]] <- DF

DF <- IDTpdf[[2]]
names( DF ) <- c( "SNo", "Scrip", "Symbol", "Leverage" )
DF <- rbind(
  data.frame(
SNo = 54
  , Symbol = "DIVISLAB"
  , Scrip = "DIVIS LABORATORIES LTD"
  , Leverage = 4.5
  )
, DF
)
IDTpdf[[ 2 ]] <- DF

do.call( rbind, IDTpdf[ 1:2 ] )

On January 8, 2023 12:59:58 AM PST, akshay kulkarni  
wrote:
>dear members,
>I am extracting a pdf table into a data frame from 
> this URL:
>
>https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf
>
>I am using extract_table() from the tabulizer package (it is archived and have 
>installed it from github)
>
>IDTpdf <- 
>extract_tables("https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf",output="data.frame";)
>
>But IDTpdf consists of four different dfs, and I want to collapse them into 
>one. The dput of IDTpdf:
>
>list(structure(list(SCRIPS.AVAILABLE.FOR.INTRADAY.WITH.LEVERAGES.PROVIDED.ON.THEM
> = c("S.No.",
>"times)", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
>"11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21",
>"22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32",
>"33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43",
>"44", "45", "46", "47", "48", "49", "50", "51", "52", "53"),
>X = c("Scrip Name", "", "ALKEM LABORATORIES LTD.", "ATUL LTD",
>"ABB INDIA LIMITED", "AARTI INDUSTRIES LTD", "ABBOTT INDIA LIMITED",
>"ADITYA BIRLA CAPITAL LTD.", "ADITYA BIRLA FASHION & RT",
>"ACC LIMITED", "ADANI ENTERPRISES LIMITED", "ADANI PORT & SEZ LTD",
>"AMARA RAJA BATTERIES LTD.", "ASTRAL LIMITED", "AMBUJA CEMENTS LTD",
>"ALEMBIC PHARMA LTD", "APOLLO HOSPITALS ENTER. L", "APOLLO TYRES LTD",
>"ASHOK LEYLAND LTD", "ASIAN PAINTS LIMITED", "AU SMALL FINANCE BANK LTD",
>"AUROBINDO PHARMA LTD", "AXIS BANK LIMITED", "BAJAJ AUTO LIMITED",
>"BAJAJ FINSERV LTD.", "BAJAJ FINANCE LIMITED", "BALRAMPUR CHINI MILLS LTD",
>"BANDHAN BANK LIMITED", "BANK OF BARODA", "BATA INDIA LTD",
>"BHARAT ELECTRONICS LTD", "BERGER PAINTS (I) LTD", "BHARTI AIRTEL LIMITED",
>"BHEL", "BIOCON LIMITED.", "BOSCH LIMITED", "BRITANNIA INDUSTRIES LTD",
>"BIRLASOFT LIMITED", "ZYDUS LIFESCIENCES LTD", "CANARA BANK",
>"CAN FIN HOMES LTD", "CHAMBAL FERTILIZERS LTD", "CHOLAMANDALAM IN & FIN 
> CO",
>"CIPLA LTD", "COAL INDIA LTD", "COFORGE LIMITED", "COLGATE PALMOLIVE LTD.",
>"CONTAINER CORP OF IND LTD", "COROMANDEL INTERNTL. LTD",
>"CROMPT GREA CON ELEC LTD", "CITY UNION BANK LTD", "CUMMINS INDIA LTD",
>"DABUR INDIA LTD", "DEEPAK NITRITE LTD", "DELTA CORP LIMITED"
>), X.1 = c("Symbol Series", "", "ALKEM", "ATUL", "ABB", "AARTIIND",
>"ABBOTINDIA", "ABCAPITAL", "ABFRL", "ACC", "ADANIENT", "ADANIPORTS",
>"AMARAJABAT", "ASTRAL", "AMBUJACEM", "APLLTD", "APOLLOHOSP",
>"APOLLOTYRE", "ASHOKLEY", "ASIANPAINT", "AUBANK", "AUROPHARMA",
>"AXISBANK", "BAJAJ-AUTO", "BAJAJFINSV", "BAJFINANCE", "BALRAMCHIN",
>"BANDHANBNK", "BANKBARODA", "BATAINDIA", "BEL", "BERGEPAINT",
>"BHARTIARTL", "BHEL", "BIOCON", "BOSCHLTD", "BRITANNIA",
>"BSOFT", "ZYDUSLIFE", "CANBK", "CANFINHOME", "CHAMBLFERT",
>"CHOLAFIN", "CIPLA", "COALINDIA", "COFORGE", "COLPAL", "CONCOR",
>"COROMANDEL", "CROMPTON", "CUB", "CUMMINSIND", "DABUR", "DEEPAKNTR",
>"DELTACORP"), X.2 = c("Leverage (in", "", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4.5", "4", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4", "4", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4", "4.5", "4.5", "4.5", "4", "4.5", "4", "4.5",
>"4", "4", "4.5", "4.5", "4", "4.5", "4.5", "4.5", "4.5",
>"4.5", "4.5", "4.5", "4.5", "4")), class = "data.frame", row.names = c(NA,
>-55L)), structure(list(X54 = 55:110, DIVI.S.LABORATORIES.LTD = c("DIXON TECHNO 
>(INDIA) LTD",
>"DLF LIMITED", "DR. REDDY S LABORATORIES", "ESCORTS INDIA LTD",
>"EXIDE INDUSTRIES LTD", "FEDERAL BANK LTD", "FIRSTSOURCE SOLU. LTD.",
>"GAIL (INDIA) LTD", "GLENMARK PHARMACEUTICALS", "GMR INFRASTRUCTURE LTD.",
>"GUJ NAR VAL FER & CHEM L", "DALMIA BHARAT LIMITED", "GODREJ CONSUMER 
>PRODUCTS",
>"GRANULES INDIA LIMITED", "GRASIM INDUSTRIES LTD", "GUJARAT STATE PETRO LTD",
>"GUJARAT GAS LIMITED", "HINDUSTAN AERONAUTICS LTD", "HAVELLS INDIA LIMITED",
>"HCL TECHNOLOGIES LTD", "HDFC LTD", "HDFC AMC LIMITED", "HDFC BANK LTD",
>"HDFC LIFE INS CO LTD", "HERO MOTOCORP LIMITED", "HINDALCO INDUSTRIES LTD",
>"HINDUSTAN COPPER LTD", "HONEYWELL AUTOMATION IND", "ICICI BANK LTD.",
>"ICICI LOMBARD GIC LIMITED", "ICICI PRU L

[R] extracting a table from pdf file....

2023-01-08 Thread akshay kulkarni 
dear members,
I am extracting a pdf table into a data frame from 
this URL:

https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf

I am using extract_table() from the tabulizer package (it is archived and have 
installed it from github)

IDTpdf <- 
extract_tables("https://www.canmoney.in/pdf/INTRADAYLEVERAGE-20220531-latest.pdf",output="data.frame";)

But IDTpdf consists of four different dfs, and I want to collapse them into 
one. The dput of IDTpdf:

list(structure(list(SCRIPS.AVAILABLE.FOR.INTRADAY.WITH.LEVERAGES.PROVIDED.ON.THEM
 = c("S.No.",
"times)", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
"11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21",
"22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32",
"33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43",
"44", "45", "46", "47", "48", "49", "50", "51", "52", "53"),
X = c("Scrip Name", "", "ALKEM LABORATORIES LTD.", "ATUL LTD",
"ABB INDIA LIMITED", "AARTI INDUSTRIES LTD", "ABBOTT INDIA LIMITED",
"ADITYA BIRLA CAPITAL LTD.", "ADITYA BIRLA FASHION & RT",
"ACC LIMITED", "ADANI ENTERPRISES LIMITED", "ADANI PORT & SEZ LTD",
"AMARA RAJA BATTERIES LTD.", "ASTRAL LIMITED", "AMBUJA CEMENTS LTD",
"ALEMBIC PHARMA LTD", "APOLLO HOSPITALS ENTER. L", "APOLLO TYRES LTD",
"ASHOK LEYLAND LTD", "ASIAN PAINTS LIMITED", "AU SMALL FINANCE BANK LTD",
"AUROBINDO PHARMA LTD", "AXIS BANK LIMITED", "BAJAJ AUTO LIMITED",
"BAJAJ FINSERV LTD.", "BAJAJ FINANCE LIMITED", "BALRAMPUR CHINI MILLS LTD",
"BANDHAN BANK LIMITED", "BANK OF BARODA", "BATA INDIA LTD",
"BHARAT ELECTRONICS LTD", "BERGER PAINTS (I) LTD", "BHARTI AIRTEL LIMITED",
"BHEL", "BIOCON LIMITED.", "BOSCH LIMITED", "BRITANNIA INDUSTRIES LTD",
"BIRLASOFT LIMITED", "ZYDUS LIFESCIENCES LTD", "CANARA BANK",
"CAN FIN HOMES LTD", "CHAMBAL FERTILIZERS LTD", "CHOLAMANDALAM IN & FIN CO",
"CIPLA LTD", "COAL INDIA LTD", "COFORGE LIMITED", "COLGATE PALMOLIVE LTD.",
"CONTAINER CORP OF IND LTD", "COROMANDEL INTERNTL. LTD",
"CROMPT GREA CON ELEC LTD", "CITY UNION BANK LTD", "CUMMINS INDIA LTD",
"DABUR INDIA LTD", "DEEPAK NITRITE LTD", "DELTA CORP LIMITED"
), X.1 = c("Symbol Series", "", "ALKEM", "ATUL", "ABB", "AARTIIND",
"ABBOTINDIA", "ABCAPITAL", "ABFRL", "ACC", "ADANIENT", "ADANIPORTS",
"AMARAJABAT", "ASTRAL", "AMBUJACEM", "APLLTD", "APOLLOHOSP",
"APOLLOTYRE", "ASHOKLEY", "ASIANPAINT", "AUBANK", "AUROPHARMA",
"AXISBANK", "BAJAJ-AUTO", "BAJAJFINSV", "BAJFINANCE", "BALRAMCHIN",
"BANDHANBNK", "BANKBARODA", "BATAINDIA", "BEL", "BERGEPAINT",
"BHARTIARTL", "BHEL", "BIOCON", "BOSCHLTD", "BRITANNIA",
"BSOFT", "ZYDUSLIFE", "CANBK", "CANFINHOME", "CHAMBLFERT",
"CHOLAFIN", "CIPLA", "COALINDIA", "COFORGE", "COLPAL", "CONCOR",
"COROMANDEL", "CROMPTON", "CUB", "CUMMINSIND", "DABUR", "DEEPAKNTR",
"DELTACORP"), X.2 = c("Leverage (in", "", "4.5", "4.5", "4.5",
"4.5", "4.5", "4.5", "4.5", "4.5", "4", "4.5", "4.5", "4.5",
"4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5", "4.5",
"4.5", "4.5", "4.5", "4", "4", "4.5", "4.5", "4.5", "4.5",
"4.5", "4", "4.5", "4.5", "4.5", "4", "4.5", "4", "4.5",
"4", "4", "4.5", "4.5", "4", "4.5", "4.5", "4.5", "4.5",
"4.5", "4.5", "4.5", "4.5", "4")), class = "data.frame", row.names = c(NA,
-55L)), structure(list(X54 = 55:110, DIVI.S.LABORATORIES.LTD = c("DIXON TECHNO 
(INDIA) LTD",
"DLF LIMITED", "DR. REDDY S LABORATORIES", "ESCORTS INDIA LTD",
"EXIDE INDUSTRIES LTD", "FEDERAL BANK LTD", "FIRSTSOURCE SOLU. LTD.",
"GAIL (INDIA) LTD", "GLENMARK PHARMACEUTICALS", "GMR INFRASTRUCTURE LTD.",
"GUJ NAR VAL FER & CHEM L", "DALMIA BHARAT LIMITED", "GODREJ CONSUMER PRODUCTS",
"GRANULES INDIA LIMITED", "GRASIM INDUSTRIES LTD", "GUJARAT STATE PETRO LTD",
"GUJARAT GAS LIMITED", "HINDUSTAN AERONAUTICS LTD", "HAVELLS INDIA LIMITED",
"HCL TECHNOLOGIES LTD", "HDFC LTD", "HDFC AMC LIMITED", "HDFC BANK LTD",
"HDFC LIFE INS CO LTD", "HERO MOTOCORP LIMITED", "HINDALCO INDUSTRIES LTD",
"HINDUSTAN COPPER LTD", "HONEYWELL AUTOMATION IND", "ICICI BANK LTD.",
"ICICI LOMBARD GIC LIMITED", "ICICI PRU LIFE INS CO LTD", "IDFC LIMITED",
"IDFC FIRST BANK LIMITED", "INDIAN ENERGY EXC LTD", "INDRAPRASTHA GAS LTD",
"THE INDIAN HOTELS CO. LTD", "THE INDIA CEMENTS LIMITED", "INDIAMART INTERMESH 
LTD",
"INTERGLOBE AVIATION LTD", "INDUSIND BANK LIMITED", "INDUS TOWERS LIMITED",
"INFOSYS LIMITED", "INTELLECT DESIGN ARENA", "INDIAN OIL CORP LTD",
"IPCA LABORATORIES LTD", "INDIAN RAIL TOUR CORP LTD", "ITC LTD",
"JINDAL STEEL & POWER LTD", "JSW STEEL LIMITED", "JUBILANT FOODWORKS LTD",
"KOTAK MAHINDRA BANK LTD", "L&T FINANCE HOLDINGS LTD", "DR. LAL PATH LABS LTD.",
"LAURUS LABS LIMITED", "LIC HOUSING FINANCE LTD", "LARSEN & TOUBRO LTD."
), DIVISLAB = c("DIXON", "DLF", "DRREDDY", "ESCORTS", "EXIDEIND",
"FEDERALBNK", "FSL", "GAIL", "GLENMARK", "GMRINFRA", "GNFC",
"DALBHARAT", "GODREJCP", "GRANULES", "GRASIM", "GSPL", "GUJGASLTD",
"HAL", "HAVE